Dim N as Object
 Dim v as Variant
 
 Set N = CreateObject("SNormal")

 v = N.sample(3)

   Debug.Print TypeName(v)
   Debug.Print UBound(v)
   Debug.Print LBound(v)
   Debug.Print v(1)

   For i = LBound(v) To UBound(v)
      Debug.Print v(i)
   Next i