[VB.net] FTP PROBLEMA

[AtzenDei]

Salve, ho un problema con un programmino che sto sviluppando già da tempo.
Son riuscito a fare tutto, l'unica cosa che non riesco a risolvere e che mi fa scervellare è questa:

Sto creando un FTP per caricare quando c'è bisogno un file nel mio spazio web, fino qui tutto ok. Quando eseguo il debug però mi da un'eccezione che proprio non riesco a capire.

il codice è questo:

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 Dim writer As System.IO.Stream
        Dim Uri = "ftp://ftp.atzencork.altervista.org"
        Dim FTP As Net.FtpWebRequest = Net.FtpWebRequest.Create(Uri)
        FTP.Credentials = New System.Net.NetworkCredential("id", "pass")
        FTP.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        OpenFileDialog1.ShowDialog()
        Dim _File As System.IO.FileInfo = New System.IO.FileInfo(OpenFileDialog1.FileName)
        Dim _fileContents As Byte() = New Byte(_File.Length - 1) {}
        Dim fr As System.IO.FileStream = _File.OpenRead()
        fr.Read(_fileContents, 0, Convert.ToInt32(_File.Length))
        fr.Close()
        writer = FTP.GetRequestStream()
        writer.Write(_fileContents, 0, _fileContents.Length)
        writer.Close() 

Vi mostro un'immagine per schiarire le idee: