If Option3.Value = True Then
 
  With CommonDialog1
    .CancelError = False
    .Filter = "ListView Dateien (*.dat)|*.dat"
    .ShowOpen
    lvw_ReadData lvwBestellungen, CommonDialog1.FileName
  End With
End If
 
If Option1.Value = True Then
    lvw_WriteData lvwBestellungen, App.Path & "\Bestellungen.dat"
    MsgBox "Die Liste 'Bestellungen.dat' wurde unter " & App.Path & "" & _
      "gespeichert"
End If
 
If Option2.Value = True Then
 
  With CommonDialog1
    .CancelError = False
    .Filter = "ListView Dateien (*.dat)|*.dat"
    .ShowSave
    lvw_WriteData lvwBestellungen, CommonDialog1.FileName
  End With
End If