Funcion que devuelve array de texto

[ReViJa]

Estoy tan inspirado que te he hecho un ejemplo, espero que te sirva:

Código:

Dim Key() As String, Cadena As String, x As Integer

Cadena = "Hola a todos los foreros"
Key = Split(Cadena)

For x = LBound(Key) To UBound(Key)
  Debug.Print Key(x)
Next

Saludos.