un ejemplo podria ser posicionarse al final del array y con la funcion mid$() ir añadiendo los distintos caracteres del string al array
no se si me explique bien xD

lol.....no creo que hacer el trabajo de los demas asi sin mas, ayude en nada.....
solo comentare que para recorrerlo puedes usar un for y luego alguna que otra variable para el posicionamiento del "puntero" luego la funcion mid$() hace uso de dicha var y alguna cosa mas, por ejemplo

[···code···]

(dentro del bucle for)

arr(x) = AscW(Mid$(cadena, x + 1, 1))

(x = var usada en el bucle for)

[···resto de code···]

.
Haber si te sirve lo acabo de hacer por que me llamo la atención esto:

 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////
 
Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Public Function StrConbyte(StrData As String, ByRef vArray() As Byte, Optional StrAntes As Boolean = False) As Byte()
 
Dim ArrayStr()                  As Byte
Dim ArrayTmp()                  As Byte
Dim ArrayCantElemStr            As Long
Dim ArrayCantElemArray          As Long
Dim CopyBytesLenStr             As Long
Dim CopyBytesLenArray           As Long
Const LenByteArray = 2
 
    If Len(StrData) > 0 Then
 
        ArrayStr = StrConv(StrData, vbFromUnicode)
        ArrayCantElemStr = UBound(ArrayStr) + 1
        ArrayCantElemArray = UBound(vArray) + 1
 
        ReDim ArrayTmp(ArrayCantElemStr + UBound(vArray))
 
        CopyBytesLenStr = LenByteArray * ArrayCantElemStr
        CopyBytesLenArray = LenByteArray * ArrayCantElemArray
 
        If StrAntes Then
            CopyMemory ArrayTmp(0), ArrayStr(0), CopyBytesLenStr
            CopyMemory ArrayTmp(ArrayCantElemStr), vArray(0), CopyBytesLenArray
        Else
            CopyMemory ArrayTmp(0), vArray(0), CopyBytesLenArray
            CopyMemory ArrayTmp(ArrayCantElemArray), ArrayStr(0), CopyBytesLenStr
        End If
 
        StrConbyte = ArrayTmp
 
    End If
 
End Function
 
 

ejemplo en funcionamiento:

 
Sub main()
 
Dim ArrayHola()                 As Byte
 
    ArrayHola = StrConv("BlackZeroX-", vbFromUnicode)
    ArrayHola = StrConbyte("InfrangeluX", ArrayHola)
    MsgBox StrConv(ArrayHola, vbUnicode)
 
    ArrayHola = StrConv("-BlackZeroX", vbFromUnicode)
    ArrayHola = StrConbyte("InfrangeluX", ArrayHola, True)
    MsgBox StrConv(ArrayHola, vbUnicode)
 
End Sub
 
 

P.D.: con unas modificaciones funcionara con integer, long etc. con string, creo que se haría mas largo xP, por hay lo revisan q seguro algo se me a de ver pasado.

Sangrientas Lunas!¡.
.