Private Sub TestAssert()
    'A test of the Assert method in function myFunction.
    'Also, you can test debugger stepping through/over a function.
    
    'Does not trigger Assert method.
    q = myFunction(1, 2, 3)
    '2 ways to check the value of q
    MsgBox q        'opens box - have to click.  What a drag!
    Debug.Print q   'only shows in Immediate window
    
    'Triggers Assert method.
    q = myFunction(1, 0, 3)
End Sub

Function myFunction(x As Long, y As Long, z As Long) As Long
    'This function is from http://support.microsoft.com/kb/161153
    'It will return a run-time error if any argument is zero.
    
    Debug.Assert (x <> 0 And y <> 0 And z <> 0)
    myFunction = 1 / x + 1 / y + 1 / z
End Function

Private Sub TestWatch()
    'To make some variables to watch.
    'Inspired by an example from Lecture #2
    
    Dim intI As Integer
    Dim strWatched As String
    
    'Watch how these variables change through the loop
    intI = 10
    For intI = 2 To 5
        strWatched = "I is " & intI
    Next intI
    
    'Oops.  A typo.
    strWatchd = "Done"
    
End Sub