#Const Debugging = TruePublic Sub Trap(ByVal Source As String, ByVal Message As String) #If Debugging Then Call DebugPrint(Source, Message) Stop #End IfEnd Sub