Private Sub Command1_Click()
Dim b(0 To 6) As Byte'定义Ansi字符串存放字节数组
doVBUniCodeToAnsiByte "123斯", b
MsgBox StrConv(b, vbUnicode)'Ansi字符串字节数组转UniCode字符串
End Sub
Private Sub doVBUniCodeToAnsiByte(ByVal strUniCode As String, ByRef Dest() As Byte)
Dim i As Long Dim b() As Byte
Erase Dest
b = StrConv(strUniCode, vbFromUnicode)
' For i = 0 To UBound(b)
' Debug.Print b(i)
' Next i
For i = 0 To UBound(b)
Dest(i) = b(i)
If i > UBound(Dest) Then Exit For
Next i
End Sub