Private Sub mnuOressa1_Click()
  Dim StrEingabe As String
  Dim i As Integer
 
If Label5 = "" Then
MsgBox "Bitte eine Auswahl treffen.", vbInformation, "Hinweis"
Else
  StrEingabe = InputBox("Den Namen des Eintrag angeben.", "Eingabe")
      If StrEingabe <> "" Then
    lstList.AddItem StrEingabe
    Open App.PATH + "\Test.txt" For Output As #1 
    For i = 0 To lstList.ListCount - 1                     
      Print #1, lstList.List(i)
    Next i
    Close #1
  End If
End If
 
End Sub