IsDebug

Option Explicit
Public bolRunningInDebug As Boolean

Private Sub Form_Load()
On Error Goto ErrorHandler
Debug.Print 1 / 0
Exit Sub
ErrorHandler:
If Err.Number = 11 Then
bolRunningInDebug = True
Resume Next
End If
End Sub