如何将中文转换为UCS2编码

[iswearwangxp]

我想把一个字符串“中文”转换为UCS2编码，
结果应该是“4E2D6587”，不知道如何实现
求助大家

[rainstormmaster]

Private Sub Command1_Click()
'UCS2
Dim s As String
s = "中文"
Dim i As Long
Dim s1 As String, temp As String
For i = 1 To Len(s)
temp = Mid(s, i, 1)
s1 = s1 + Hex(AscW(temp))
Next
MsgBox s1
End Sub

[广州黑码软件]

Private Function myascw(mymess As String) As String
Dim ii As Integer
myascw = ""
For ii = 1 To Len(mymess)
If Len(Trim(Hex(AscW(Mid(mymess, ii, 1))))) = 2 Then
myascw = myascw & "00" & Trim(Hex(AscW(Mid(mymess, ii, 1))))
Else
myascw = myascw & Trim(Hex(AscW(Mid(mymess, ii, 1))))
End If
Next
End Function

以上本人自编的,中文和英文可混合