File1 = "1.txt"
File2 = "2.txt"
File3 = "3.txt"
 
Set FS = CreateObject("Scripting.FileSystemObject")
 
Set TextDatei1 = FS.OpenTextFile(File1)
Set TextDatei2 = FS.OpenTextFile(File2)
Set TextDatei3 = FS.OpenTextFile(File3, 2, true)
 
Do Until TextDatei1.AtEndOfStream
  Do Until TextDatei2.AtEndOfStream
 
    strLine1 = Trim(TextDatei1.ReadLine)
    If SkipRow(strLine1) = False Then
      strLine2 = TextDatei2.ReadLine
      TextArray = Split(strLine2, " ")
      RNummer = TextArray(1)
 
      Textdatei3.WriteLine strLine1 & ";" & RNummer
    End If
  Loop
Loop
TextDatei1.Close
TextDatei2.Close
TextDatei3.Close
 
Function SkipRow(strLine)
  Exclusion = "+"
  EArray = Array(Exclusion)
  Hits = False
  For FValue = LBound(EArray) to UBound(EArray)
    If Left(strLine, 1) = EArray(FValue) Then
      Hits = True
    End If
    If Hits = True Then
      SkipRow = True
    End If
  Next
End Function