如何将十进制的字符串转成十六进制的字节数组?

dim meStr as String '将要转换的字符串 dim i as Integer ' dim meHex() as Byte '存放将转换后的10进制数组 dim strCount as Integer meSte="2345" strCount=Len(meStr) ReDim meHex(strCount) For i=0 to strCount meHex(i)=Hex(Asc(Mid