vba unicode to ansi code example

Example: vba unicode to ansi

' From Unicode to ANSI
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode)    ' Convert string.
For i = 0 To UBound(x)
    Debug.Print x(i)
Next