Public Function FTPupload()
    pSocket = ftpConnect("ftp.larsbehrmann.de", "benutzername", "passwort")
    If pSocket > 0 Then
    ftpSetBinary (pSocket)
    ftpPutFile pSocket, 0, "c:\meldung\status.htm", "status.htm"
    End If
    ftpQuit (pSocket)
End Function

If it's stupid but it works, it isn't stupid.