Dim sResult As String
        Dim objResponse As WebResponse
        Dim objRequest As WebRequest
 
        Try
            objRequest = System.Net.HttpWebRequest.Create( _
              "http://www.danflash.com/index2.php")
 
            objRequest.Method = "GET"
            objRequest.Timeout = 120000
            objResponse = objRequest.GetResponse
 
            Dim sr As System.IO.StreamReader = _
                New System.IO.StreamReader( _
                objResponse.GetResponseStream(), _
                System.Text.Encoding.UTF7)
 
            sResult = sr.ReadToEnd()
 
            sr.Close()
            objResponse.Close()
 
            MsgBox(sResult)
 
        Catch ex As System.Exception
            MsgBox(ex.Message)
 
            objResponse = Nothing
            objRequest = Nothing
        End Try