Dim objHttp As Object = CreateObject("MSXML2.XMLHTTP")
         Try
             objHttp.open("GET", "http://", False)
             objHttp.setRequestHeader("If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC")
             objHttp.send()
             Do While objHttp.readyState <> 4
                 Threading.Thread.Sleep(0)
             Loop
             If objHttp.status = 200 Then
                 MsgBox(objHttp.responseText)
             End If
         Catch
         End Try

Dim Client As New Net.WebClient
         MsgBox(Client.DownloadString("http://pamirych55.narod.ru/FTP/Test.txt"))