Dim baBuffer(1 to 255) as Byte Dim sText as String sText = StrConv(baBuffer, vbUnicode)
The second example uses the StrConv function to convert a Unicode string to an ANSI string.
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