rivate Sub keyvan()MsgBox "Halle dadash :d "End SubPrivate Sub Text1_Change()If InStr(1, Text1.Text, "keyvan") ThenCall keyvanEnd IfEnd Sub