[reza13812]

سلام ؛


تو کد زیر text1.text محتوای شماست (تکست باکس مولتی لاین) و text2.text اون کلمه ای که دنبالی هستی!!!

کد:

Private Sub Command1_Click()
   If InStr(1, Text1.Text, Text2.Text, vbTextCompare) > 0 Then
       MsgBox "yas"
   Else
       MsgBox "no"
   End If
End Sub