check if substring in string vba code example

Example 1: VBA check if a cell contains a letter or string

Sub IfContains()
    If InStr(ActiveCell.Value, "string") > 0 Then
        MsgBox "The string contains the value."
    Else
        MsgBox "The string doesn't contain the value."
    End If
End Sub

Example 2: excel vba string contains

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' String to search in.
SearchChar = "P"    ' Search for "P".

' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)    

' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Comparison is binary by default (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)    ' Returns 9.

' Not found
MyPos = Instr(1, SearchString, "W")    ' Returns 0.