GetAsc "我爱看学论坛"
Sub GetAsc(strIn)
Dim i,strChar,txtOut
For i = 1 To Len(strIn)
strChar = Mid(strIn,i,1)
Ascii = Asc(strChar)
If Ascii < 0 Then Ascii = Ascii + &H10000
txtOut = txtOut & strChar & ":" & Hex(Ascii) & " "
Next
MsgBox txtOut,0,"ASCII编码"
End Sub