Guardar cadena en Array (VB6)

[pablinweb]

Dim mCadena() as string 'Declaro la matriz con () porque no sé cuantas palabras tiene el string
mCadena = Split("Hola Chan, como te va", " ")'Desarmo el string con el separador de " " (un espacio en blanco)
'mCadena(0) contiene "Hola".
'mCadena(1) contiene "Chan,".
'mCadena(2) contiene "como".
'mCadena(3) contiene "te".
'mCadena(4) contiene "va".