Using Assertions
Sub Assertion() Dim intAge As Integer intAge = InputBox("Please Enter Your Age") Debug.Assert (intAge >= 0) msgBox "You are " & intAge End Sub