如何将字符串转换为byte数组？

ReDim bArr(0 To lenData - 1) As Byte
RegQueryValueEx hKey, Name, 0, typeData, bArr(0), lenData
Text1.SelText = Name & " = "
For j = 0 To UBound(bArr)
Text1.SelText = Hex(bArr(j)) & " "
Next
Text1.SelText = vbCrLf 这样可以输出成 10 C3 BC 0 0 ..... 这样的字符串但是我怎么样才可而已将这样的字符串转换成 BYTE 类型数组呢？？？