All pastes #76943 Raw Edit

Anonymous

public text v1 · immutable
·published 2006-07-02 10:29 UTC
rendered paste body
Public Function InIDE() As Boolean
On Error Resume Next
    Err.Clear
    Debug.Assert 1 / 0
    If Err.Number <> 0 Then
        Err.Clear
        InIDE = True
    Else
        Err.Clear
    End If
End Function