Imports Microsoft
Imports Microsoft.Office
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Windows.Forms
 
Public Sub Version_speichern()        
        Dim dlg As New SaveFileDialog()
        With dlg
            .Title = "Version speichern unter ..."
            .InitialDirectory = SpeicherPfad
            .Filter = "dat-Dateine|*.dat"
            '.ShowDialog()
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                MsgBox("speichern") 'zum testen
            End If
        End With
End Sub