Public Function AsByteArray_String(MyString As String) As Byte()
'Purpose
'   Used to convert a string into a byte array.
'Parameters
'   MyString (String) = The string to convert.
'Return (Byte())
'   Returns the specified string as a byte array.
'   If the specified string is zero-length, the returned byte array is empty (has no elements).
'Dependendies
'   ElementCount
'Version History
'   1.0 4/24/2004 Tested by Russ Tanner
'---

'Initiate variables
Dim C As Long
Dim R() As Byte

'Build the return value
For C = 1 To Len(MyString)
    ReDim Preserve R(ElementCount(R))
    R(UBound(R)) = Asc(Mid(MyString, C, 1))
Next C

'Return the result
AsByteArray_String = R

End Function