To extract the first word from a text box

[hayessj]

Try this...

Dim sFirstWord As String
Dim nPosition As Integer

nPosition = InStr(1, Text1.Text, " ")
If nPosition <> 0 Then
sFirstWord = Left(Text1.Text, nPosition)
Else
sFirstWord = Text1.Text
End If
MsgBox sFirstWord