Private Sub cmdSpeichern_Click()
  On Local Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "Liste *.txt|*.txt"
    .ShowSave
    If Err = 0 Then
      <font color=green>' Jetzt speichern: .Filename enthält den 
      ' Pfad+Dateinamen</font>
      <font color=red>SaveListe List1, .Filename</font>
    End If
  End With
End Sub