Function sNeu()
Dim sDeutsch As String
Dim sEnglisch As String
Dim sFile As String
Dim F As Integer
    sDeutsch = InputBox("Deutsches Wort eingeben:", "Neues Wort hinzufügen")
If sDeutsch <> "" Then
    sEnglisch = InputBox("Englisches Wort:", "Neues Wort hinzufügen")
    sFile = App.Path & "\Bin\Wort.txt"
    F = FreeFile
    Open sFile For Append As #F
    Print #F, sDeutsch & "=" & sEnglisch
    Form1.List1.AddItem sDeutsch & "=" & sEnglisch
    Form1.lDeutsch.AddItem sDeutsch
    Form1.lEnglisch.AddItem sEnglisch
    Close #F
Else
    MsgBox "Kein Wort eingetragen", vbExclamation + vbOKOnly, "Wort fehlt!"
End If
End Function