请问怎么做个十六进制转换器 谢谢

Question

分别建两个文本控件跟两个按钮控件，分别为Text1、Text2、Command1、Command2 我想在Text1输入16进制，然后按Command1就把Text1的十六进制转换成字符。例如在text1输入"D0BB　D0BB　C4E3　B0EF　D6FA　CED2"，按Command1后显示"谢谢你帮助我"。 而Command2则是反过来，也就是把Text2的字符转换到十六进制在Text1中显示。 请问如何实现，谢谢了  

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim hz As String
    For i = 1 To Len(Text1) Step 5
        hz = hz + Chr(Val("&H" & Mid(Text1, i, 4)))
    Next
    Text2 = hz
End SubPrivate Sub Form_Load()
    Text1 = "D0BB　D0BB　C4E3　B0EF　D6FA　CED2 "
End Sub

Answer 2

Private Sub Command1_Click()
    Dim i As Integer
    Dim hz As String
    For i = 1 To Len(Text1) Step 5
        hz = hz + Chr(Val("&H" & Mid(Text1, i, 4)))
    Next
    Text2 = hz
End SubPrivate Sub Command2_Click()
    Dim i As Integer
    Dim Hdata As String
    For i = 1 To Len(Text2)
        Hdata = Hdata + Hex(Asc(Mid(Text2, i, 1))) & " "
    Next
    Print Hdata
End SubPrivate Sub Form_Load()
    Text1 = "D0BB　D0BB　C4E3　B0EF　D6FA　CED2 "
End Sub