Dim anyString As String, findString As String
    anyString = "Любой текст ключевое слово"
    findString = "ключевое слово"

    If InStr( 1 , anyString, findString) <>  0  Then
        MsgBox "Найдено ключевое слово"
    Else
        MsgBox "ключевое слово Не найдено"
    End If