Per Vbscript bestimmte Zeile ungeachtet der Nummerierung prüfen

Dim objShell,appdata, regex, strContent, strFilename
Set objShell = CreateObject("wscript.shell")  
Set objFS = CreateObject("Scripting.FileSystemObject")  
Set regex = CreateObject("vbscript.regexp")  
regex.Multiline = True: regex.IgnoreCase = True
regex.Pattern = "SimObjPaths.*=Addon Scenery\Europe\Italy\AnconaX\simobjects"  

appdata = objShell.ExpandEnvironmentStrings("%appdata%")  


strNewLine = "SimObjectPaths.*=Addon Scenery\Europe\Italy\AnconaX\simobjects"  
strFileName = appdata & "\Microsoft\FSX\fsx.cfg"  

strContent = objFS.OpenTextFile(strFileName, 1).ReadAll()
if not regex.Test(strContent) then

Const FOR_READING = 1
Const FOR_WRITING = 2
strCheckForString = UCase("SimObjectPaths")  
Set objFS = CreateObject("Scripting.FileSystemObject")  
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close
arrLines = Split(strContents, vbNewLine)
Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)
For i = 0 To UBound(arrLines)
  if Len(arrLines(i)) >= Len(strCheckForString) then
    If Left(UCase(LTrim(arrLines(i))),Len(strCheckForString)) = strCheckForString and Left(UCase(LTrim(arrLines(i+1))),Len(strCheckForString)) <> strCheckForString Then
        num = CInt(Split(Split(arrLines(i),".")(1),"=")(0)) + 1  
        objTS.WriteLine arrLines(i) & vbNewline & Replace(strNewLine,"*",num)  
    else
        objTS.WriteLine arrLines(i)
    End If
Else
    objTS.WriteLine arrLines(i)
End if
next
objTS.Close
End if

[Main]
User Objects=Airplane, Helicopter
SimObjectPaths.0=SimObjects\Airplanes
SimObjectPaths.1=SimObjects\Rotorcraft
SimObjectPaths.2=SimObjects\GroundVehicles
SimObjectPaths.3=SimObjects\Boats
SimObjectPaths.4=SimObjects\Animals
SimObjectPaths.5=SimObjects\Misc
Maximized=2
Location=320,136,1360,914,\\.\DISPLAY1
HideMenuNormal=0
HideMenuFullscreen=1
ProcSpeed=9249
PerfBucket=7

[PANELS]
IMAGE_QUALITY=1
QUICKTI