Sub StringTest()
Dim MyString As String
MyString = "This is a test"
'Find the word "test" in the variable MyString and indicate where it is in the string
MsgBox InStr(1, MyString, "test")
'Since "Won't be there" isn't part of MyString, the value will be zero
If InStr(1, MyString, "Won't be there") = 0 Then
MsgBox "Won't be there isn't part of your string"
End If
End Sub