Dim session As Long, server As Long, ftpserver As String, user As String, pass As String
 Dim ret As Long, localfile As String, remotefile As String

 Dim fname As String

remotefile = fname
   
      session = InternetOpen(App.EXEName, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, INTERNET_FLAG_NO_CACHE_WRITE)
 
      server = InternetConnect(session, ftpserver, INTERNET_INVALID_PORT_NUMBER, user, pass, 1, 0, 0)

      ret = FtpPutFile(server, localfile, remotefile, FTP_TRANSFER_TYPE_BINARY, 0)
 
      InternetCloseHandle server

      InternetCloseHandle session