I presume you mean a statement  in a specific cell. If so, you can use
the Excel find  function to find it.

If you want to find the position in the statement where the word  is
located, there are functions available for that as well.

Please specify your exact issue with more detail.

I have written  in one cell  the following statement:
"THAT THE QUICK BROWN FOX JUMPS RIGHT OVER THE LAZY
DOG".
and I want to extract word  "FOX". That is the problem.

I have written  a small program to your problem have a look at my code
below

Sub om()
Dim a As String
Dim temp As String

a = Range("a1")
strlen1 = Len(a)
i = 1
While (strlen1 <> 0)
temp = Mid(a, i, 3)
If (temp = "FOX") Then
gotit = "Yes"
pos = i
End If
i = i + 1
strlen1 = strlen1 - 1
Wend
If (gotit = "Yes") Then
MsgBox ("Fox does exist at " & pos & " character to " & pos + 3)
Else
MsgBox ("Fox does not exist")
End If
End Sub

I hope this will be useful to you.

I'd like to add on to what Sujay has contributed, which is to introduce the
VBA InStr() function to those who might not be familiar with it. It could be
used in Sujay's code like this:



Sub om()

Dim a As String

a = Range("a1")

pos = InStr(s, "FOX", vbCompareText)

If pos > 0 Then

MsgBox ("Fox does exist at " & pos & " character to " & pos + 3) Else

MsgBox ("Fox does not exist")

End If

End Sub



InStrRev() finds strings starting at the end of the string instead of the
beginning, which is sometimes useful also.

That doesn't really make sense. Why extract a word  you already know?

Do you mean that you want to check whether it has the word FOX in it?

Or do you want to find  the position of the word FOX in it?

Or do you want to extract the three characters at this position in the
string?

Or do you want to extract the fifth word from the string?