我这样写不知道对不对:
    Dim TempData As String
    Dim a() As Byte
    Dim i As Integer,s() As Integer,nlen As Integer
    nlen = Len(Text5.Text)
    ReDim s(nlen)
    For n = 1 To UBound(s)
        s(n) = Mid(Text5.Text, n, 1)
    Next n
    ReDim a(nlen)
    For i = 1 To UBound(s)
        a(i) = s(i)
        Debug.Print a(i)
    Next i
但是这样写,如果遇到S()数组中有F0-FF中的值,那又怎么办呢?谢谢了!