Private Sub Command1_Click()
    Dim RetString As String
 
    RetString = DialogOpenSave(Me.hWnd, "Speichern", "C:\", "Testdatei", _
                    "Textdateien|*.txt|", "txt")
 
    Debug.Print RetString
 
End Sub