Texte d'une TextBox à partir d'un fichier internet !!!

Imports System.Net 
Imports System.Web 

Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim mWeb As WebClient = New WebClient 
        'Test Url.txt 
        Dim URL As String = "https://sd-5b.archive-host.com/membres/up/b05c9f3873215e8d2df70f056b74dce61198c32d/Test_URL.txt" 
        Me.TextBox1.Text = mWeb.DownloadString(URL) 
    End Sub 
End Class

Private Sub CommandButton1_Click()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument

IE.navigate "http://www.test/123.txt" 'A ADAPTER
IE.Visible = True 'pas nécessaire d'afficher la page Internet
WaitIE IE
Set IEDoc = IE.document
TextBox1.Value = IEDoc.body.innerText 'A condition que le texte recherché soit seul dans le body de la page en question...........
   
Set IE = Nothing
Set IEDoc = Nothing
End Sub

Sub WaitIE(IE As InternetExplorer)
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub