Well... Replace double quotation marks with single, so
""I'll""
should be replaced with
"I'll"
and everything will be fine. See:
Option Explicit
Sub test()
Dim Strings2Find As Variant
Dim Text2SearchIn As String
Dim i As Integer, j As Integer
Text2SearchIn = "I'm glad i can see you. I'd like to introduce some one to you. I'll be very happy, if you'll..."
Strings2Find = Array("I'm", "I'll", "I'd")
For i = LBound(Strings2Find) To UBound(Strings2Find)
Do
j = InStr(j + 1, Text2SearchIn, Strings2Find(i))
If j > 0 Then MsgBox "'" & Strings2Find(i) & "' has been found on position: " & j & vbCr & _
"'" & Text2SearchIn & "'", vbOKOnly, "Success!"
Loop While j > 0
Next
End Sub