Private Sub PreviousEvenSample()
    ' Print some samples of the PreviousEven function.

    Dim dblCur As Double
    For dblCur = -6 To 6 Step 0.5
        Debug.Print "PreviousEven(" & dblCur & ") = " & PreviousEven(dblCur)
    Next dblCur
End Sub