...
    If FTPdomain.Length > 0 Then
        FTPt1.Initialize("FTPt1", FTPdomain, 21, FTPuser, FTPpass)
        FTPt1.PassiveMode = True
        ProgressDialogShow("Bitte warten, die Verbindung zum Server wird geprüft...")
        FTPt1.DownloadFile("/" & FTPpfad & "/testdatei.txt", False, MyDir, "testdatei.txt")   
    end if
    '
    einstellungen_speichern
    ... usw
        
Sub FTPt1_DownloadCompleted (ServerPath As String, Success As Boolean)
    ProgressDialogHide
    Log(ServerPath)
    FTPt1.CloseNow                       'FTP sofort schliessen
    If Success = True Then
        MsgboxAsync("Die Daten sind korrekt.","Hinweis")
    Else
        MsgboxAsync("Datei nicht gefunden."Problem [8590]")
    End If
    '
End Sub