Option Explicit
Const LESEN = 1
Const SCHREIBEN = 2
Const PFAD1 = "d:\test1.txt"
Const PFAD2 = "d:\test2.txt"
Const PFAD3 = "d:\test3.txt"
Dim DateiSystem, Datei1, Datei2, Datei3, Dic, Zeile, Pos, arr
 
Set DateiSystem = CreateObject("Scripting.FileSystemObject")
Set Datei1 = DateiSystem.OpenTextFile(PFAD1, LESEN, False)
Set Datei2 = DateiSystem.OpenTextFile(PFAD2, LESEN, False)
Set Datei3 = DateiSystem.OpenTextFile(PFAD3, SCHREIBEN, True)
 
Set Dic = CreateObject("Scripting.Dictionary")
 
Datei1.SkipLine
Do Until Datei1.AtEndOfStream
  Zeile = Datei1.Readline
  Pos = InStr(Zeile, ";")
  Dic.Add Left(Zeile, Pos -1), Mid(Zeile, Pos)
Loop
Datei1.Close
 
Do Until Datei2.AtEndOfStream
  arr = Split(Datei2.Readline, " ")
 
  If Dic.Exists(arr(0)) Then
    Datei3.WriteLine arr(0) & Dic.Item(arr(0)) & ";" & arr(1)
  End If
Loop
Datei2.Close
Datei3.Close
 
WScript.CreateObject("WScript.Shell").Run "%windir%\notepad " & _
  DateiSystem.GetFile(PFAD3).Path