Private Sub STR16to2(ByVal STR1 As String, B() As Byte)
  Dim I As Long
  
  On Error Resume Next
  
  I = Len(STR1)
  If I And 1 Then
    MsgBox "你输入的十六进制位数不对，你要注意每个十六进制数都用两个字符表示（0用00表示）"
  Else
    I = I \ 2 - 1
    ReDim B(I)
    Do While I >= 0
      B(I) = Val("&H" & Mid(STR1, I * 2 + 1, 2))
      I = I - 1
    Loop
  End If
End Sub

Private Sub STR16to4(ByVal STR1 As String, B() As Integer)
  Dim I As Long
  
  On Error Resume Next
  
  I = Len(STR1)
  If I Mod 4 Then
    MsgBox "你输入的十六进制位数不对，你要注意每个十六进制数都用四个字符表示（0用0000表示）"
  Else
    I = I \ 4 - 1
    ReDim B(I)
    Do While I >= 0
      B(I) = Val("&H" & Mid(STR1, I * 4 + 1, 4))
      I = I - 1
    Loop
  End If
End Sub

[[it] 本帖最后由 Joforn 于 2008-9-20 22:01 编辑 [/it]]

楼上的大牛，你的代码得出的结果是 90 ， 而我需要的是 0x5A, 我需要十六进制数

[[it] 本帖最后由 hangxi 于 2008-9-20 22:34 编辑 [/it]]

在VB里 90和0x5A都是一样的。
存到计算机里都是二进制数。

我知道是一样的，因为我需要把这些十六进制数发送给单片机去处理，如果用十进制的话，单片机还需要耗费资源来进行处理

例如我现在有一字符串数组 send_string[3]={"5A","6D","FD"}
我需要转换为byte 型数组 send_byte={0x5A,0x6D,0xFD}

好像不是很想象中这么简单

你既然知道0x5A和那个90是一样的，那么你的数组也可以定义为（赋值为）
{90,...,...}
对于每个元素，你用上面的方法转换一下进制。因为输入是字符串，和Byte完全是2两码事。"5A"的每一位是一个字符，而ASCII的字符的本质还是一个Byte，所以"5A"是2个Byte组成的数组。

我只能说你还没明白CPU是怎么处理数据的。

0x5A和90(十进制)在CUP中是同一个东西，不同的是我发的两个过程一个返回的是1字节的数据，也就是Byte(8Bit),而第二个是Integer(16Bit)

是不是Integer还要看他怎么定义的数组，他定义的似乎是bytearray

实际上关键问题是 从 十进制转化为 十六进制之后， 由 integer 变成了 string , 例如  Hex(10)="0x0A"

这样一整型数组 经过hex 转化之后就变成了 string 型的数组了， 而我希望得到 byte 型数组