Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.
Código
Private Sub Form_Load() Dim hola() As String hola = CharSplit7913("hola") ' Devuelve ' Hola(0) = "h" ' Hola(1) = "o" ' Hola(2) = "l" ' Hola(3) = "a" End Sub Private Function CharSplit7913(expression As String) As String() Dim X As Long Dim lExp As Long Dim ExpB() As Byte Dim AuxArr() As String ExpB = expression lExp = UBound(ExpB) ReDim AuxArr(lExp) For X = 0 To lExp Step 2 AuxArr(X / 2) = ChrW$(ExpB(X)) Next ReDim Preserve AuxArr(lExp \ 2) CharSplit7913 = AuxArr End Function
GRACIAS POR LEER!!!