对于一个Variant类型的变量，我想知道它有多少个值，应该怎么办？？？？？

[uu_snow]

dim vtString as Variant
vtString=aObject.aProperty

现在我知道 aObject.aProperty 返回是 Variant
而且返回值是个列表，就是说：
vtString（0），vtString（1）......
都有值，但现在我想知道一共有多少个值
我应该怎么得到呢？

[baoxiang]

Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Declare array variables.
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.
UBound是求数组最大范围的。
LBound是求最小范围的。

[leonkim]

dim maxvalue
dim vtString as Variant
vtString=aObject.aProperty
maxvalue=vtstring.ubound
print maxvalue