Private Sub FractionalToRealSample()
    ' Print some samples of the FractionalToReal function.

    Dim varExpr As Variant

    varExpr = "4/5":                                GoSub One_FractionalToRealSample
    varExpr = "1234567/3343455":                    GoSub One_FractionalToRealSample
    varExpr = "12192891289281212/238349834983498":  GoSub One_FractionalToRealSample
    varExpr = "1/0":                                GoSub One_FractionalToRealSample
    varExpr = 1029:                                 GoSub One_FractionalToRealSample
    varExpr = #1/2/2003#:                           GoSub One_FractionalToRealSample

    Exit Sub

One_FractionalToRealSample:

    Debug.Print "FractionalToReal(X, " & IllustrateDebug(varExpr) & ") = ";
    If FractionalToReal(varExpr) Then
        Debug.Print "True, X = " & IllustrateDebug(varExpr)
    Else
        Debug.Print "False"
    End If

    Return
End Sub