schliessenspeichern = MessageBox.Show("Datenbank speichern?", _
          "Schliessen", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, _
          MessageBoxDefaultButton.Button1)
 
        If schliessenspeichern = Windows.Forms.DialogResult.Yes Then
            e.Cancel = True
            UploadFTP(sFile, sDestFile, sServer, sUser, sPwd)
            If gespeichert = True Then
                e.Cancel = False
            End If
        End If