Code:
intAPOS = InStr(1, strFTPs, "<A HREF=" & Chr(34) & "ftp://")
try that...