
    Dim lErr As Long, sDesc As String
    
    If bAPIError Then
        lErr = Err.LastDllError
        sDesc = ApiError(lErr)
    Else
        lErr = Err.Number
        sDesc = Err.Description
    End If
    msg = PreTit &amp; "Error" &amp; Tit &amp; ":" &amp; vbCr
    If lErr &lt;&gt; 0 And (lErr &lt;&gt; 3146 Or bAPIError) Then
        msg = msg &amp; vbCr
        If lErr &gt;= 0 And lErr &lt; 100000 Then
            msg = msg &amp; lErr
        Else
            msg = msg &amp; " = &amp;H" &amp; Right$