searching strings?

I extracted html from a webpage and was wondering how I could search the string for the 18th chr(39), or '.

Code:

---

Dim x&, n&
For n = 1 To 18
    x = InStr$(x + 1, searchText, "'")
Next n
If x Then MsgBox "found at position: " & x

---