Download file di testo da url risulta vuoto

Buongiorno a tutti, vi prego di scusare la mia ignoranza, ma tramite il codice che allego,

scarico un file di testo, il file viene scaricato però risulta vuoto, potete dirmi dove sbaglio?

Ringrazio chi mi aiuta a superare la difficoltà.

Imports System.ComponentModel
Imports System.IO
Imports System.Net
Public Class Downloader
    Dim WithEvents Aggiorna As New WebClient
    Dim percorso As String = Directory.GetCurrentDirectory()
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Aggiorna.DownloadFileAsync(New Uri("https://www.pippo.altervista.org/Aggiorna/testo.txt"), percorso & "\testo.txt")
        Catch ex As Exception
            Throw New Exception(ex.Message & ". Impossibile Aggiornare il file!")
        End Try
    End Sub
    Private Sub Aggiorna_Downloadfilecomplete(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles Aggiorna.DownloadFileCompleted
        MsgBox("Download Completato!")
        Close()
    End Sub

    Private Sub Downloader_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Aggiorna.CancelAsync()
    End Sub
End Class