Thanks guys for the info im still playing with it, how about this?
I am grabbing the text from http://www.alexa.com/data/details?url=eznetideas.com and then removing all html tags and then searching for the string Traffic Rank for eznetideas.com: in the text. If you goto http://getguru.eznetideas.net/forum/test.asp you will see i have it working basically but i cant search for the string because its on two lines. So I tried removing everything that I do not want and make the text so it would be all on one line if you do not have word wrapping turned on.
Here is the code I am using and all the Replace functions but I can still not remove all the empty lines.
strHTMLPage = GetHTML("http://www.alexa.com/data/details?url=eznetideas.com")
strPlainText = ClearHTMLTags(strHTMLPage,0)
strPlainText = Replace(strPlainText,vbTab," ",1,-1,1)
strPlainText = Replace(strPlainText,vbTab," ",1,-1,1)
strPlainText = Replace(strPlainText,vbCrLf," ",1,-1,1)
strPlainText = Replace(strPlainText,vbNewLine," ",1,-1,1)
strPlainText = Replace(strPlainText," "," ",1,-1,1)
strPlainText = Replace(strPlainText," "," ",1,-1,1)