怎么给VBA结构体数组赋初值

如何给VBA结构体数组赋初值
'自定义类型
Public Type sheetsType
sName  As String
rStart As Integer
cStart As Integer
rPoint As Integer
End Type

Dim sheetsSelect() As sheetsType
sheetsSelect = Array("数据1", 1, 2, 3, "数据2", 1, 2, 3, "数据3", 1, 2, 3)

'我希望达到如上效果,但实际情况告诉我类型不匹配,请问该如何修改,及如何赋初值
'补充说明下,最终我需要一个可扩展的结构体数组,方便后期维护,循环遍历时我用UBound()函数,这样可以么
------解决方案--------------------------------------------------------
循环吧
------解决方案--------------------------------------------------------
强烈建议你用Collection类型，

自定义类型只能在外接dll里很好的使用。