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