Option Explicit
 
Private Sub Form_Load()
Dim datenfeld() As String
Dim daten() As String
Dim wert() As String
Dim zeilen As Integer
Dim zaehlen As Boolean
 
Dim a As Integer
zeilen = 1
Open App.Path & "\datei.txt" For Input As 1
    While Not EOF(1)
        ReDim Preserve datenfeld(zeilen)
        ReDim Preserve daten(zeilen)
        ReDim Preserve wert(zeilen)
        zaehlen = True
        Line Input #1, datenfeld(zeilen)
        daten(zeilen) = Left(datenfeld(zeilen), InStrRev(RTrim(datenfeld( _
          zeilen)), " ") - 1)
        wert(zeilen) = Right(datenfeld(zeilen), Len(datenfeld(zeilen)) - _
        InStrRev(Trim(datenfeld(zeilen)), " "))
        If zeilen > 1 Then
            For a = 1 To zeilen - 1
                If daten(zeilen) = daten(a) Then
                    wert(a) = CStr(CInt(wert(a)) + CInt(wert(zeilen)))
                    zaehlen = False
                    Exit For
                End If
            Next a
            If zaehlen = False Then zeilen = zeilen - 1
        End If
        zeilen = zeilen + 1
    Wend
Close 1
Open App.Path & "\fertig.txt" For Output As 2
    For a = 1 To zeilen - 1
       Print #2, daten(a) & " " & wert(a)
    Next a
Close 2
Unload Me
 
End Sub