With Inet1                              'ftp-Verbindung zum Server herstellen
    .RemoteHost = ftp://www.server.de
    .UserName = Benutzer
    .Password = *******
    .Protocol = icFTP
    .Execute , "DIR"
End With
    Do
        DoEvents
    Loop Until Not Inet1.StillExecuting