在vb中怎样实现下列的转换？

Question

Dim TempBytes() as Byte
Dim I as longTempBytes=StrConv("下课", vbFromUniCode)For I=0 to 3
    Print Hex(TempBytes(I)) & " ";
Next I

Answer 1

Dim word As String * 1
Dim i As Long, j As Long
j = Len("下课")
For i = 1 To j
   word = Mid("下课", i, 1)
   Debug.Print Hex(Asc(word))
Next

Answer 2

Private Sub Command1_Click()    Dim word() As Byte
    Dim i As Long
    Text1.Text = ""
    word = StrConv("下课", vbFromUnicode)
    For i = 0 To LenB(StrConv("下课", vbFromUnicode)) - 1
        Debug.Print Hex(word(i)) & Chr(9)
        Text1.Text = Text1.Text & Hex(word(i)) & Chr(9)
    Next iEnd Sub