Private Sub SpellTimeSample()
    ' Make several sample calls to the SpellTime function.

    Randomize

    Dim intTrial As Integer
    For intTrial = 1 To 16
        Dim dblDateTime As Double
        dblDateTime = Rnd

        Debug.Print "SpellTime(#" & CVDate(dblDateTime) & "#, Null, True) = " & SpellTime(dblDateTime, Null, True)
    Next intTrial
End Sub