StrToByte

Function StrToByte(s As String)
Dim Bytes() As Byte
Dim t
t = StrConv(s, vbFromUnicode)
Bytes = t
StrToByte = Bytes
End Function