nt.
    '
    sBuffer = Space$(cIniBufferSize)

    If GetPrivateProfileString(sSection, sKey, vbNullString, sBuffer,
     cIniBufferSize, sInfFile) Then
        ReadIniFile = TrimAPIString(sBuffer)
    Else
        ReadIniFile = sDefault
    End If
End Function

Public Function ReadIniFileFlag(ByVal sSection As String, ByVal sKey As String,
 ByVal bDefault As Boolean) As Boolean
    Dim sValue As String
    
    sValue = ReadIniFile(sSection, sKey)
    If IsNumeric(sValue) Then
        ReadIniFileFlag = (C