Private Sub Speichern_Click()
Dim F As Integer
Dim sfile As String
sfile = sevText6.Text & sevText5.Text
 
  With CommonDialog1
    .CancelError = False
      .Flags = cdlOFNOverwritePrompt
        .Filter = "Textdateien (*.dat)|*.dat"
         .FileName = sfile 'Then Exit Sub
           .ShowSave
              lvw_WriteData ListView1, .FileName  
   End With
   F = FreeFile
Open "sfile" For Append As #F
Print #F, sevText1.Text
Print #F, sevText2.Text
'Print #F,......
Close #F
End Sub