Zeigt den Standard-Dialog zum Speichern von Dateien an.'Fügen Sie einer Form 
' einen Command-Button hinzu, um diesen Code auszuführen
Private Sub Command1_Click()
    Dim sFile As String
    If cdlgSaveFile(sFile, "Dateiauswahl", App.Path, "Textdatei (*.txt)|*.txt", _
      "", hwnd, 0) Then
        MsgBox "Die Datei " + sFile + " wurde gewählt."
    End If
End Sub

---
Sventke