Преобразование строки в байтовый массив - VB

<font color="blue">Sub</font> a(str)
    <font color="blue">Dim</font> b() <font color="blue">As</font> <font color="blue">Byte</font>
    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
    b = StrConv(str, vbFromUnicode)
    <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> UBound(b)
        Debug.<font color="blue">Print</font> b(i), Chr(b(i))
    <font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>