Private Sub CommandDownload_Click()
  Inet1.Execute "http://www.myserver.com/myfile.txt", "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
  Dim var_data As Variant
  Dim str_data As String
  If State = icResponseCompleted Then
    ' Get the first chunk.
    var_data = Inet1.GetChunk(1024, icString)
    str_data = str_data & var_data

    ' Get the rest of the chunks.
    Do
      DoEvents
      var_data = Inet1.GetChunk(1024, icString)
      If Len(var_data) = 0 Then Exit Do
      str_data = str_data & var_data
    Loop
    TextFile.Text = str_data 'здесь "стучим" назад в прогу
    'MsgBox str_data
  ElseIf State = icError Then
    TextFile.Text = "" 'здесь "стучим" назад в прогу
    MsgBox "error"
  End If
End Sub

  Private Sub ButtonDownload_Click(sender As Object, e As EventArgs) Handles ButtonDownload.Click
    Dim wbClient As New Net.WebClient
    Dim strData As IO.Stream = wbClient.OpenRead("http://www.myserver.com/myfile.txt")
    Dim sr As IO.StreamReader = New IO.StreamReader(strData)
    TextBox1.Text = sr.ReadToEnd()
  End Sub

  Private Sub ButtonDownloadAsync_Click(sender As Object, e As EventArgs) Handles ButtonDownloadAsync.Click
    Dim wc As New WebClient
    AddHandler wc.DownloadStringCompleted, AddressOf AlertStringDownloaded
    wc.Encoding = System.Text.Encoding.Default 'ANSI
    wc.DownloadStringAsync(New Uri("http://www.myserver.com/myfile.txt"))
  End Sub

  Private Sub AlertStringDownloaded(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
    '  If the string request went as planned and wasn't cancelled:
    If e.Cancelled = False AndAlso e.Error Is Nothing Then
      TextBox1.Text = e.Result.ToString
    Else
      'MsgBox(e.Error.Message)
    End If
  End Sub

' Force the OffLine or OnLine mode

Public Sub SetOffLineMode(ByVal offLineMode As Boolean)
  Dim ci As INTERNET_CONNECTED_INFO
  Dim retValue As Boolean

  If offLineMode Then
    ci.dwConnectedState = INTERNET_STATE_DISCONNECTED_BY_USER
    ci.dwFlags = ISO_FORCE_DISCONNECTED
  Else
    ci.dwConnectedState = INTERNET_STATE_CONNECTED
  End If
  retValue = InternetSetOption(0&, INTERNET_OPTION_CONNECTED_STATE, ci, _
   LenB(ci))
End Sub

Public Function get_Offline() As Boolean ' (VARIANT_BOOL * bOffline)
  Dim hr As Long
  Dim ci As INTERNET_CONNECTED_INFO
  Dim ci_len As Long
  ci_len = 8

  InternetQueryOption 0, INTERNET_OPTION_CONNECTED_STATE, ci, ci_len
  get_Offline = Not ((ci.dwConnectedState And INTERNET_STATE_CONNECTED) = INTERNET_STATE_CONNECTED)
End Function