asignar texto hasta primer espacio

egamonty
20 de Junio del 2006
necesito conseguir de una cadena el primer texto que hay hasta el primer espacio,

ejemplo:

Texto: "hola que tal"
"hola"
alguien sabe de alguna funcion que consiga hacer esto
gracias

cmoraga
20 de Junio del 2006
te mando el código:


Private Sub Command1_Click()
Dim i
Dim espacio As String

espacio = " "
i = InStr(Text1.Text, espacio)
Text2.Text = Left(Text1.Text, i)
End Sub