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

[iamme2007]

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:-

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.