Funcion que devuelve array de texto

[ReViJa]

Sin problemas !!!


Cadena = "Hola a todos los foreros" => Variable que almacena la cadena, puede ser una variable, un TextBox u otro.

Key = Split(Cadena) => Aquí carga en el vector según la función Split por defecto el delimitador de cadena es " " (un espacio) pero eso lo puedes cambiar por lo que quieras.
EJ:
Cadena= "Hola mundo"
key=Split(cadena," ")
debug.print key(0)
debug.print key(1)

For x = LBound(Key) To UBound(Key)
Debug.Print Key(x)
Next => Con el bucle recorro desde el inicio del vector Lbound(key) hasta el final del vector Ubound(key) y con la x vector(x) lo recorres.

Si te confunde el Debug.Print cambialo por un TextBox.

Un saludo.