Sub editscore(ename As String, epoints As Integer, ejoker As Integer)
Dim paht As String
Dim zeile As String
Dim gesammt As String
Dim eingetragen As Boolean
Dim durchlauf As Integer
 
 
path = App.path & "\temp\highscore.qiz"
eingetragen = False
 
Close
 
Open path For Input As #1
    Do Until durchlauf = 10
        Line Input #1, zeile
        eintrag = Split(zeile, "#")
         If epoints < eintrag(1) Or eingetragen = True Then
            gesammt = gesammt & zeile & vbNewLine
         Else
            If eingetragen = False Then
                gesammt = gesammt & ename & "#" & epoints & "#" & ejoker & "#" _
                  & vbNewLine & zeile
                eingetragen = True
            End If
         End If
        durchlauf = durchlauf + 1
    Loop
Close #1
 
Open path For Output As #2
    Print #2, gesammt;
Close #2
 
End Sub