German Probleme mit FTP-Download

...
Dim FTPt As FTP
FTPt.Initialize("FTPt", FTPdomain, 21, FTPuser, FTPpass)
FTPt.PassiveMode = True
ProgressDialogShow("Bitte warten, die Verbindung zum Server wird geprüft...")
FTPt.DownloadFile("/" & FTPpfad & "/Test.txt", False, ListDir, "Test.txt")


Sub FTPt_DownloadCompleted (ServerPath As String, Success As Boolean)
    ProgressDialogHide
    If Success = True Then
        MsgboxAsync("Die Daten sind korrekt, Datei wurde gefunden.","Hinweis")
    Else
        MsgboxAsync("Datei wurde auf dem FTP-Server nicht gefunden.","Fehler")
    End If
   '
    FTPt.Close   'und FTP schliessen
End Sub