Using dlg As New SaveFileDialog
            With dlg
                .AddExtension = True
                .Filter = "Filterberschreibung (*.ext)|*.ext"
                .FileName = "StandardName"
                .InitialDirectory = "C:\Mein\Standard\SpeicherOrt"
                .Title = "Meine Daten speichern ..."
 
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    ' Speichern
                End If
            End With
        End Using