Language Basics VisualBasic Script

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