Private Sub bsSpeichern_Click() 
  Dim sFilename As String
 
  sFilename = SpeichernDialog(Form2, _ 
    "Excel Dateien (*.xls)|*.txt|Alle Dateien (*.*)|*.*", "Speichern...", _
    App.Path)
 
  If sFilename <> "" Then
    lvw_WriteData ListView1, sFilename
  End If 
End Sub