VBScript - Wert verändern

[SUBSTITUTIONS]
GESCHWINDIGKEIT=                                                                                                                                                                                                            
TIME=12:00:00 AM
SPURS=86
JAZZ=94
TEMPERATURE=82
GAME_TIME=15:04
BUSH=49.9%
GORE=50.1%
TEST=rot

[PAGE_SELECTION]
PROJECT=default
PAGE=Sponsor0
PREVIEW=0
DISPLAY=0
TRANSITIONING=0

[SPECIAL]
LOAD_VARIABLE_DLL=1

Set MyFiles = CreateObject("Scripting.FileSystemObject")  
Const ForReading = 1, ForWriting = 2

strEingabe = InputBox("Geben Sie die Variable ein")  
strNeueZeile = "TEST="& strEingabe  

varDatei="d:\Substitute.val"  
varTmpDatei="d:\TestOut.val"  
Set fin = MyFiles.OpenTextFile(varDatei, ForReading)
Set fout = MyFiles.OpenTextFile(varTmpDatei, ForWriting, True)

strSearch = "TEST="  

do while not fin.AtEndOfStream
       strline = fin.readLine()
       if instr(1,strline, strSearch) = 0 then		
               'Zu entfernende Zeile nicht gefunden, also Zeile ausgeben  
               fout.writeline strline
	else fout.WriteLine strNeueZeile
	end if
loop


Dim fso, objFile
Set fso = CreateObject("Scripting.FileSystemObject")  
Set objFile = fso.GetFile("d:\Substitute.val") ' hier mit Pfadangabe  
objFile.Name = "d:\Substitute.txt" ' hier ohne Pfadangebe  

   
   dateiAngabe="d:\Substitute.txt"  
   Set fso = CreateObject("Scripting.FileSystemObject")  
   fso.DeleteFile(dateiAngabe)


Set fso = CreateObject("Scripting.FileSystemObject")  
Set objFile = fso.GetFile("d:\TestOut.val") ' hier mit Pfadangabe  
objFile.Name = "Substitute.val" ' hier ohne Pfadangebe