Visual Basic - seleccionar palabra de 1frase

QUIERO SELECCIONAR LA PRIMERA PALABRA DE UN TEXTBOX DONDE HAY UNA FRASE,ES DECIR,SELECCIONAR Y COPIAR EN OTRO TEXTBOX EL TEXTO Q HAYA ASTA EL PRIMER ESPACIO.
ESTOY UTILIZANDO ESTA EXPRESION,PERO ME DA ERROR

var = SUBSTR(Text1.Text, 1, InStr(Text1.Text, \" \"))

NO SE LO Q ESTA MAL O SE PUEDE HACER DE OTRA FORMA MAS FACIL

For L=0 to Len(Text1.Text) - 1
If Mid(Text1.Text,L,1)=" " then
Exit For
else
Variable=Variable & Mid(Text1.text,L,1)
End If
Next
Text2.Text=Trim(Variable)

Espero te sirva

Otra forma seria:

Private Sub Command1_Click()
Posicion = InStr(1, Text1.Text, " ")
Text1.SelStart = 0
Text1.SelLength = Posicion
Text2.Text = Text1.SelText
End Sub

Espero que cualquiera de las dos formas te sirva.

Saludos Pola