How to Retieve data of an( .ini/.txt/.vbs) file using VBScript based on key-value pair

Class ReadInifile
Dim arrFile()
Dim objFSO, objFile
Function sec_prop(section_name,section_property)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("dataexg.ini", 1)
Do Until objFile.AtEndOfStream
str_sec = objFile.ReadLine
If str_sec = "["& section_name & "]" Then
svalue = ""
Do until InStr(svalue,"[") Or objFile.AtEndOfStream
Redim Preserve arrFile(0)
'MsgBox section_name & section_property
If Not objFile.AtEndOfStream Then
arrFile(0) = objFile.ReadLine
'MsgBox InStr(arrFile(0),section_property)
If InStr(arrFile(0),section_property) Then
a = Split(arrFile(0),"=")
sec_prop = a(1)
end If
svalue = arrFile(0)
End If
Loop
End If
Loop
Erase arrFile
objFile.close
End function
End Class

Dim objINI, Result
Set objINI = New ReadInifile
Result = objINI.sec_prop( "server","servername")
MsgBox Result