search a value on .txt file using vbscript

[linana]

I have a .txt file and i need to search a particular value on it ,
i need to open read the file , and then search for exemple the value of 'DefCurrency' when 'Label'=AE0100 for this i need to found the row : '!MEMBERS=ENTITY' and then return the value of 'DefCurrency'

i use the below code to read my file but i can't found how a found the value of DefCurrency:

' Define needed I/O constants
Const ForReading = 1
Const ForWriting = 2
Const TriStateUseDefault = -2
' Get input file name from command line parm
If (WScript.Arguments.Count > 0) Then
   strInFile = WScript.Arguments(0)
Else
   WScript.Echo "No input filename specified."
   WScript.Quit
End If

' Get output file name from command line parm (if none, overwrite input file)
If (WScript.Arguments.Count > 1) Then
   strOutFile = WScript.Arguments(1)
Else
   strOutFile = strInFile
End If

' Create filesystem object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Make sure input file exists
If Not objFSO.FileExists(strInFile) Then
   Wscript.Echo "ERROR: Input file """ & strInFile & """ does not exist."
   Wscript.Quit
End If



Set objFile = objFSO.OpenTextFile(strInFile, ForReading, False, TriStateUseDefault)
sLine = objFile.ReadLine
objFile.Close

'bIsEntity = false

'arrData = Split(strData, vbCrLf)
For i = 0 To UBound(arrData)
	'sLine = objFile.ReadLine
	aLine = sLine.Split(";")
	 'arrField = Split(arrData(i), ";")
	
	
	if InStr(1, sLine, "!MEMBERS=ENTITY" , 1)  then
	'arrField = Split(arrData(i), ";")
'		bIsEntity = true
'	elseif bIsEntity = true then
		if ubound(arrField)>1 then
			if arrField(3) <> "AllowAdjs" then
				arrField(3)= "mycurrency" 
				
				'arrField(1)
				 
				'Exit Sub
			end if
		end if
	end if
	

	
	
	  arrData(i) = Join(arrField, ";")

Next

' Write output file with any changes
Set objFile = objFSO.OpenTextFile(strOutFile, ForWriting, True)
objFile.Write Join(arrData, vbCrLf)
objFile.Close



Function ZPad(strText, intLen)
    ' Pad with leading zeros on the left to specified length
    ZPad = Right(String(intLen, "0") & strText, intLen)
End Function
 

thanks for your help