Funcion que retorne matriz de valores

[[EX3]]

Coincido con boluart, suele ser mas optimo, aunque el otro metodo tambien es posible:

Código:

Public Function DevolverLetras(Texto As String) As String()
    Dim i As Long
    Dim retorno() As String
    ReDim retorno(1 To Len(Texto))
    For i = 1 To Len(Texto)
        retorno(i) = Mid(Texto, i, 1)
    Next i
    DevolverLetras = retorno
End Function

Salu2...