[KnRSU]

zena,
если точнее то вот так будет работать

Код:

Sub m_1()
Dim МестоПоиска As String
Dim ЧтоИщем As String
Dim i As Long
   МестоПоиска = InputBox("Введите текст в котором будет произведен поиск")
   ЧтоИщем = InputBox("Введите искомый текст")
   i = InStr(1, МестоПоиска, ЧтоИщем, vbTextCompare)
   If i >= 0 Then
       MsgBox "Искомая строка '" & ЧтоИщем & "' ВХОДИТ в указанную строку '" & МестоПоиска & "' и начинается с символа № " & i
   Else
       MsgBox "Не входит"
   End If
End Sub