To extract the first word from a text box

[dmuir]

Add a command button, a text box and try this code.

Private Sub Command1_Click()
Dim mytext As String
Dim counter As Integer

mytext = Text1.Text

For counter = 1 To Len(Text1.Text)
If Mid$(mytext, counter, 1) = " " Then
GoTo NextPart
End If
Next counter

NextPart:

MsgBox "'" + Mid$(mytext, 1, counter - 1) + "'"

End Sub


Good Luck,
dmuir