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