Dim Cache As String
Dim WorkingStatus
Cache = "http://example.co"
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(Cache)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream(), System.Text.Encoding.GetEncoding("windows-1252"))
WorkingStatus = sr.ReadToEnd()