Find Substring within a String

Find the starting position of a substring within a string. (With strings, the first character is at position 1)

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