Private Declare Function VBGETSAVEFILEDLG Lib "vbex32.dll" _
              (ByVal sCaption As String, _
               ByRef sFileName As String, _
               ByVal sInitialDir As String, _
               ByVal sFilter As String, _
               ByVal sExtension As String, _
               ByRef nFlags As Long) As Long
 
Private Sub Form_Load()
    VBGETSAVEFILEDLG "Speichern von Datei", " ", "C:\", " ", " ", 0
End Sub