Option Explicit
 
Private Sub cmdStart_Click()
 
    Dim NamesArr(0 To 3) As String
        NamesArr(0) = "Hans"
        NamesArr(1) = "Dieter"
        NamesArr(2) = "Peter"
        NamesArr(3) = "Klaus"
 
    Dim SourceFilePath As String
        SourceFilePath = "C:\Source.txt"    ' Die datei mit den sdsdsdsdfss 
        ' NAME sdsfsdsdsd WERT als inhalt
    Dim ResultFilePath As String
        ResultFilePath = "C:\Result.txt"    ' Die "ErgebnisDatei"
 
 
    Dim i As Integer, j As Integer
    Dim F As Integer
    Dim sLine As String
    Dim lngPosName As Long
    Dim strResult As String
 
    ' Existiert die Datei ?
    If Dir$(SourceFilePath) <> "" Then
 
        ' Datei zum Lesen öffnen
        F = FreeFile
        Open SourceFilePath For Input As #F
 
            ' Solange einlesen, bis entweder Dateiende
            ' oder gewünschte Zeilennummer erreicht
            While Not EOF(F)
                ' Zeile einlesen
                Line Input #F, sLine
                [u]sLine = Replace(sLine, vbTab, " ")
 
                ' Eingelesene Zeile nach Namen durchsuchen
                For i = 0 To UBound(NamesArr)
                    lngPosName = InStr(1, LCase(sLine), LCase(NamesArr(i)))
                    sLine = Trim(sLine)
 
                    If lngPosName > 0 Then
                        strResult = strResult & Mid(sLine, lngPosName, InStr( _
                          lngPosName, sLine, " ") - lngPosName) & "<value>" _
                          & Trim(Mid(sLine, InStrRev(sLine, " "))) & "<new>"
                    End If
                Next i
            Wend
 
        Close #F
    End If
 
    Dim strTempArr() As String
        strTempArr = Split(strResult, "<new>")
    Dim strTempArr2() As String
    Dim dblGesamt As Double
    For i = 0 To UBound(NamesArr)
        dblGesamt = 0
        For j = 0 To UBound(strTempArr) - 1
            strTempArr2 = Split(strTempArr(j), "<value>")
            If LCase(strTempArr2(0)) = LCase(NamesArr(i)) Then
                dblGesamt = dblGesamt + CDbl(strTempArr2(1))
            End If
        Next j
        NamesArr(i) = NamesArr(i) & vbTab & CStr(dblGesamt)
    Next i
 
    F = FreeFile
    Dim strSaveString As String
        For i = 0 To UBound(NamesArr)
            strSaveString = strSaveString & NamesArr(i) & vbCrLf
        Next i
 
        Open ResultFilePath For Output As #F
            Print #F, strSaveString
        Close #F
 
End Sub

Mit freundlichen Gr??en,
Andy G.