sServer = "juan-montoya.de"
sUser = "DeinBenutzername"
sPassword = "DeinPasswort"
 
hSocket = VBEX_FTPConnect(sServer, sUser, sPassword)
If hSocket > 0 Then
  If VBEX_FTPChangedir(hSocket, "/Daten") Then
    sRemoteFile = "Test.dat"
    sLocalFile = "A:Test.dat"
 
    <font color=green>' ASCCI-Übertragung (2 für Binär)</font>
    nMode = 1
 
    nResult = VBEX_FTPFileDownload(hSocket, txtStatus.hWnd, sServer, _
      sRemoteFile, sLocalFile, nMode)
  Else
    MsgBox "Verzeichnis existiert nicht!"
  End If
Else
  MsgBox "Es ist ein Fehler aufgetreten" 
  Exit Sub
End If