Visual Basic 2010 Express Excel-Tabelle beim erzeugen automatisch speichern

Dim Data As String, sText As String
    Dim Zeile As Long

    Dim myExcelApp As Excel.Application 'Excel Application zur Darstellung der Datei  

    Dim xlsApp As Excel.Application

    Private Sub taskClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Task.Click

        Const ftpHost As String = " ****** " 'Location der Datei auf FTP-Server  
        Dim ftp As System.Net.FtpWebRequest = DirectCast(System.Net.FtpWebRequest.Create(ftpHost), System.Net.FtpWebRequest)

        On Error GoTo Fehler

        ftp.KeepAlive = False
        ftp.UseBinary = True
        ftp.Credentials = New System.Net.NetworkCredential("user", "password")  'Zugriff nach Eingabe von Username und Passwort  
        ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile  'Laden der Datei auf FTP-Server  

        myExcelApp = New Excel.Application
        myExcelApp.UserControl = True

        myExcelApp.Workbooks.Open(ftpHost).select() 'zeigt die Datei in einer Excel Tabelle  

        'myExcelApp.ActiveWorkbook.SaveAs("C:\Ueberwachung\ertraege.xls")  

        myExcelApp.Application.Quit()
        myExcelApp.Visible = True

        
        'myExcelApp.Quit()  

Fehler:
        If ftpHost = Nothing Then
            MsgBox("Bitte eine gültige Zieladresse auswählen")  
        End If
    End Sub