Public Function HTTPGet(ByVal myURL As String)

Dim temp As String
temp = “”
Try

Dim myURI As New Uri(myURL)
Dim wr As Net.WebRequest = Net.WebRequest.Create(myURI)
wr.Credentials = Net.CredentialCache.DefaultCredentials
Dim response As Net.HttpWebResponse = CType(wr.GetResponse(), Net.HttpWebResponse)
Dim datastream As IO.Stream = response.GetResponseStream
Dim reader As New IO.StreamReader(datastream)
Dim responseFromServer As String = reader.ReadToEnd()
temp = responseFromServer
reader.Close()
datastream.Close()
response.Close()

Catch

MsgBox(Err.Description & vbCrLf & myURL)

End Try
Return temp

End Function