If nResult <> 0 Then
 
       sRemoteFile = "members.dat"
       sLocalFile = "A:Test.dat"
 
       nMode = 1
 
       nResult1 = VBEX_FTPFileDownload(hSocket, txtStatus.hWnd, sServer, _
                            sRemoteFile, sLocalFile, nMode)
 
       If nResult <> 0 Then
         MsgBox "RemoteFile existsiert nicht!"
       End If