script esportazione ftp, blocca l'esecuzione automatica

Salve, con mattia abbiamo inserito lo script per esportare il file in una cartella ftp,
ma   
Rdy.ShowMessage "Upload completato"
mi crea un messaggio che mi blocca le procedure automatiche,
a me andrebbe bene anche non vederlo e vedere solo in caso di problemi

ecco lo script (dati ftp cambiati logicamente)


Option Explicit

Dim Nomefile

Nomefile = ExportFilter.OutputFileName
If Rdy.FTPUpload(Nomefile,"xxxxxxxxx", "xxxxxxxxxxx", "xxxxxxxxx", "/tempidisped.csv") Then
    Rdy.ShowMessage "Upload completato"
Else
    Rdy.ShowMessage "Errore durante upload FTP"
End If