'Datei mit dem entsprechenden Namen zum Schreiben öffnen und Daten schreiben
            'dieser Block verzehrt esxtrem viel Zeit
            Set fso1 = CreateObject("Scripting.FileSystemObject")
            Set newFile = fso1.getFile(outPathSpec & contractName & _
              ".txt").OpenAsTextStream(8, -1)
            newFile.WriteLine (outPutString)
            newFile.Close
        End If
        lineIndex = lineIndex + 1
    Loop
End Sub