The VBA INSTR Function returns an integer corresponding to the first position found of a value in a character string (or the value 0 if no match was found).
InStr(start_num, text, value)
Or
InStr(start_num, text, value, case)
Using the InStr Function to determine an "excel" word position (starting searches from the character 1 of the sitename):
Sub InStrExample1() sitename = "www.moonexcel.com.ua" 'Position of "excel" in the sitename position = InStr(1, sitename, "excel") MsgBox position 'Returns: 9 End Sub
Using the InStr Function to determine an "EXCEL" word position (this time adding the value 1 in the 4th argument to ignore case):
Sub InStrExample2() sitename = "www.moonexcel.com.ua" 'Position of "EXCEL" in the sitename (ignoring case) position = InStr(1, sitename, "EXCEL", 1) MsgBox position 'Returns: 9 End Sub
The InStr Function can also be used to determine whether or not the sitename contains the search string:
Sub InStrExample3() sitename = "www.moonexcel.com.ua" If InStr(1, sitename, "excel") > 0 Then MsgBox "Yes!" End If End Sub
In this example, if a position was found, a number greater than 0 is returned by the function and the dialog box is displayed.