Option Explicit
Private Sub Command1_Click()
Dim StringToCheck As String
Dim SpecificWord As String
StringToCheck = "the quick brown fox"
SpecificWord = "FOX"
If InStr(1, StringToCheck, SpecificWord, vbTextCompare) Then
MsgBox "Found '" & SpecificWord & "' in '" & StringToCheck & "'"
Else
MsgBox "Did not find '" & SpecificWord & "' in '" & StringToCheck & "'"
End If
End Sub