Separar paralas de una frase

FiXeR
07 de Agosto del 2004
Hola estoy en un problema nesesito saber qe funcion debo utilizar para que en una frase me de solo la primer palabra es decir

la frase:
programacion visual basic

y nesesito que solo me devuelva la palabra

"programacion"
si alguien sabe como hacerlo me seria de muchisima ayuda.
gracias

ungsec
07 de Agosto del 2004
Intenta con el siguiente codigo

i = Len(Text1)
For r = 1 To i
If Mid(Text1.Text, r, 1) <> " " Then
Text2.Text = Mid(Text1.Text, 1, r)
Else
Exit Sub
End If
Next

Espero que te sirva, suerte.