Private Function SaveMyListItems(Byref lstBx As ListBox, Byval sFilName As _
  String) As Boolean
    Dim nFilNr As Long, i As Long
    SaveMyListItems = False
    If lsBx.ListCount = 0 Then Exit Function
    On Error Resume FileErrorDetect
 
    nFilNr = FreeFile(0)
    Open sFilName For Output As #nFilNr
          For i=0 To lstBx.ListCount - 1
               Print #nFilNr,lsBx.List(i)
          Next
    Close #nFilNr
 
    SaveMyListItems = True
    End Function
FileErrorDetect:
    MsgBox "Speichern wurde abgebrochen.",vbExclamation,"Fehler in Modul:" & _
      "SaveMyListItems"
End Function