Private Function PreviousPrimeSample()
    ' Print some samples of the PreviousPrime function.

    Dim dblCur As Double
    For dblCur = -7.5 To 7.5 Step 0.5
        Debug.Print Format$(dblCur, "0.0") & " " & PreviousPrime(dblCur)
    Next dblCur
End Function