怎样把byte类型的数组（每一个元素是一个2位16进制数）在text控件中显示？

Question

怎样把byte类型的数组（每一个元素是一个2位16进制数）在text控件中显示？
 比如显示成  EE 12 E1 2E 23这样的，谢谢！

Answer 1

text1.text=text1.text + " " + hex(Array1(n))

Answer 2

Private Sub Command1_Click()
    Dim i As Long
    Dim sj() As Byte
    ReDim sj(4)
    Text1.Text = ""
    sj(0) = &HEE
    sj(1) = &H12
    sj(2) = &HE1
    sj(3) = &H2E
    sj(4) = &H23
    For i = 0 To 4
        Text1.Text = Text1.Text & Right("00" & Hex(sj(i)), 2) & " "
    Next
End Sub