Copy Unicode String to Byte Array

This example copies a Unicode string to a byte array, with no conversion.

Dim s As String
s = "ABC"

Dim b(1 To 6) As Byte

For i = 1 To 6
   b(i) = AscB(MidB(s, i))
Next


' We now have a byte array containing 65, 0, 66, 0, 67, 0