[RESOLVED] Getting some text/images from a website?

I'm trying to get some text from a webpage and shows it on the program, its for a server status checker. Heres the code I'm using:-

VBCode Code:

str2 = Mid(TotalHTML, InStr(1, TotalHTML, "There are currently", vbTextCompare) + 20, 6)
    If IsNumeric(str2) Then FindStatus = str2 Else FindStatus = "Unavailable"

If you need the website that I'm trying to get the status from then I'll give it.

Assuming that TotalHTML holds all the text from the page, what problem are you having?