Private Function inettest()
 
On Error GoTo fun_err
 
With Inet
    .AccessType = icUseDefault
    .URL = "ftp://domänennamen.de"
    .Protocol = icHTTP
    .UserName = "usrname"
    .Password = "pwd"
    .Execute , "Dir" 'Gibt die Ordner zurück
    .Execute , "Get mcd.ico c:\mcd.ico" 'Datei Downloaden
    .Execute , "Close" 'Die Verbindung wird getrennt
End With
 
Exit Function
 
fun_err:
MsgBox Err.Description & vbCrLf & Err.Number, vbCritical, Me.Caption
 
End Function