Option Explicit
 
Private Static Function String2Array(ByRef strText$, ByRef strOutPut$()) As Boolean
Dim bytStr() As Byte
Dim Q&, lngLen&
 
    lngLen = (LenB(strText) \ 2) - 1
 
    If lngLen And &H80000000 Then Exit Function
 
    '// Aquí el famoso "StronV"... xP
    bytStr = Strings.StrConv(strText, vbFromUnicode)
    ReDim strOutPut$(0 To lngLen)
 
    For Q = 0 To lngLen
        strOutPut(Q) = Strings.ChrW$(bytStr(Q))
    Next Q
 
    String2Array = True
End Function
 
Private Sub Form_Load()
Dim varItem
Dim strO$()
 
    If String2Array("Psyke1", strO) Then
        For Each varItem In strO
            Debug.Print varItem
        Next varItem
    End If
End Sub

P
s
y
k
e
1