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
    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 Dateiende erreicht
            While Not EOF(F)
                ' Zeile einlesen
                Line Input #F, sLine
 
                ' Eingelesene Zeile nach Namen durchsuchen
                For i = 0 To UBound(NamesArr)
                    lngPosName = InStr(1, sLine, NamesArr(i))
                    sLine = Trim(sLine)
 
                    If lngPosName > 0 Then
                        ' Wenn Name gefunden: Namen und Wert auslesen (Der Name 
                        ' muss eig. nicht ausgelesen werden, da er ja bekannt 
                        ' ist.) und an die Variable strResult anhängen
                        ' Das ginge zB auch: strResult = strResult & NamesArr( 
                        ' i) & Mid(sLine, InStrRev(sLine, " ")) & "<new>"
                        strResult = strResult & Mid(sLine, lngPosName, InStr( _
                          lngPosName, sLine, " ") - lngPosName) & Mid(sLine, _
                          InStrRev(sLine, " ")) & "<new>"
                    End If
                Next i
            Wend
 
        Close #F
    End If
 
    F = FreeFile
    strResult = Replace(strResult, "<new>", vbCrLf) ' Hier werden alle 
    ' "<new>" durch vbCrlf's (Zeilenumbrüche) ersetzt
    Open ResultFilePath For Output As #F    ' Anschließend wird die 
    ' ErgebnisDatei erstellt und der Inhalt der strResult Variable hinein 
    ' geschrieben.
        Print #F, strResult
    Close #F
 
End Sub

Mit freundlichen Gr??en,
Andy G.