Source code

Option Explicit
Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String) As StringDim NF              As IntegerDim Temp            As StringDim LcaseTemp       As StringDim ReadyToRead     As Boolean    AssignVariables:        NF = FreeFile        ReadIniValue = ""        KEY = "[" & LCase$(KEY) & "]"        Variable = LCase$(Variable)    EnsureFileExists:    Open INIpath, Binary, ReadAndWrite, LockReadAndWrite, NF    Close NF    SetAttr INIpath, vbArchive    LoadFile:   Open INIpath, Input, ReadAndWrite, LockReadAndWrite, NF    While Not EOF(NF)
    ReadLine NF
    LcaseTemp = LCase$(Temp)
    If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False
    If LcaseTemp = KEY Then ReadyToRead = True
    If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then        If InStr(LcaseTemp, Variable & "=") = 1 Then            ReadIniValue = Mid$(Temp, 1 + Len(Variable & "="))
           Close NF: Exit Function
            End If
        End If
   Wend
    Close NF
End Function