maybe that can help you :

Code:
Private Sub Command1_Click()
For x = 1 To Len(Text1)
    If Mid(Text1, x, 1) = " " Then
        Text1.SelStart = x
        Text1.SelLength = 0
        Text1.SetFocus
    End If
Next x
End Sub