Function CopyStringToByteArray(sString As String) As Byte()
Dim a As Integer
Dim bString() As Byte
For a = 0 To Len(sString) - 1
  ReDim Preserve bString(a)
  bString(a) = Asc(Mid(sString, a + 1, 1))
Next
CopyStringToByteArray = bString
End Function