hSocket = sevFTP_Connect(sServer, "XXXXXX", "XXXXXX", 21)
sLocalFile = App.Path + "\temp\test.htm"
sLocalFile2 = App.Path + "\temp\test2.htm"
sRemoteFile = "/upload/test.htm"
sRemoteFile2 = "/upload/test2.htm"
nResult = sevFTP_FileUpload(hSocket, 0, sServer, sRemoteFile, sLocalFile, 1)
If nResult = 1 Then
   MsgBox sRemoteFile + vbCrLf + "wurde erfolgreich hochgeladen." + vbCrLf + _
     sevFTP_StatusMsg()
Else
   MsgBox "Beim Upload ist ein Fehler aufgetreten."
End If
'Bei der folgenden Zeile hängt sich das Prg. auf:
nResult = sevFTP_FileUpload(hSocket, 0, sServer, sRemoteFile2, sLocalFile2, 1)
sevFTP_Quit hSocket
MsgBox "FTP-Verbindung getrennt."