Private Sub RandomVariantSample()
    ' Print some samples of the RandomVariant function.

    Const NTries = 16

    Dim intTry As Integer
    For intTry = 1 To NTries
        Debug.Print intTry & "/" & NTries & ": " & IllustrateDebug(RandomVariant)
    Next intTry
End Sub