Private Sub Command1_Click()
    Dim sFile As String
    If cdlgSaveFile(sFile, "Dateiauswahl", App.Path, "Alle Dateien (*.*)|*.*", _
      "", hwnd, 0) Then
        MsgBox "Die Datei " + sFile + " wurde gewählt."
    End If
End Sub

---
Sventke