864
社区成员




Public Function getCardSubString(strCard As String, _
startPosition As Integer, _
strlength As Integer _
) As String
Dim sSrc As String
Dim sSub As String
sSrc = StrConv(strCard, vbFromUnicode)
sSub = MidB$(sSrc, startPosition + 1, strlength)
getCardSubString = StrConv(sSub, vbUnicode)
End Function