Lng(sValue) &lt;&gt; 0)
    Else
        ReadIniFileFlag = bDefault
    End If
End Function

Public Function TrimAPIString(ByVal x As String) As String
    Dim i As Long

    i = InStr(x, vbNullChar)
    If i = 0 Then
        TrimAPIString = x
    Else
        TrimAPIString = Left$(x, i - 1)
    End If
End Function

Public Sub DisplayError(Optional ByVal Tit As String = "", Optional ByVal
 PreTit As String = "", Optional ByVal bAPIError As Boolean = False)
    Dim msg As String, i As Integer, Cur As Integer