Private Sub PreviousNumberSample()
    ' Print some samples of the PreviousNumber function.

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