Private Function NextPrimeSample()
    ' Print some samples of the NextPrime function.

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