Visual Basic - Buscar texto en frase no funciona

Por favor alguien puede indicarme como seleccionar un determinado texto de una frase.Hago esto
Dim posicion
posicion = InStr(1, Text2.Text, " ")
Text2.SelStart = Val(Text1.Text) - 1
Text2.SelLength = pocicion
Text4.Text = Text2.SelText
Pero solo me aparece una parte de lo que pretendo buscar.Gracias de antemano

Jorge no entiendo esta instrucción:
Text2.SelStart = Val(Text1.Text) - 1

estas convirtiendo a valor lo que hay dentro de la propiedad Text y restandole 1. para que?. Te mando este pequeño código yo lo he probado y funciona, espero te sirva.

Private Sub Command1_Click()
Dim posicion As Integer
posicion = InStr(1, Text1.Text, "Huevo")
Text1.SelStart = posicion - 1
Text1.SelLength = Len("huevo")
Text1.SetFocus
Text3.Text = Text1.SelText
End Sub

Espero que te sirva, si no es así, envíame un correo y lo comentamos.

Saludos Pola