String Contains Substring?

Determine if a string contains a substring.

Dim s As String

s = "Chilkat Software"

' The following 4 lines are case-sensitive
Print InStr(s, "Software")   ' Prints 9
Print InStr(s, "Chilkat")    ' Prints 1
Print InStr(s, "xyz")        ' Prints 0
Print InStr(s, "software")   ' Prints 0

' The following 3 lines are case-insensitive
Print InStr(1, s, "software", vbTextCompare)  ' Prints 9
Print InStr(1, s, "chilkat", vbTextCompare)    ' Prints 1
Print InStr(1, s, "xyz", vbTextCompare)        ' Prints 0

' To determine if a string contains a substring,
' check for the return value of 0.
searchStr = "abc"
If InStr(s, searchStr) = 0 Then
    Print "substring not found within s"
End If