Ну например...
Код:
Sub m_1()
Dim МестоПоиска As String
Dim ЧтоИщем As String
МестоПоиска = "Текстовый"
ЧтоИщем = "Текст"
If InStr(МестоПоиска, ЧтоИщем) > 0 Then
MsgBox "Входит"
Else
MsgBox "Не входит"
End If
End Sub
Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры...
