VB.NET编写的函数中包含可选数组时，怎么初始化数组

VB.NET编写的函数中包含可选数组时，如何初始化数组？
大家好，小弟目前在用VB.NET编写DLL时，遇到一个问题，就是函数在返回数组时，不知道如何初始化：如下：
 Public Function SerialNumber_GetComponent(ByVal sProductCode As String, ByVal sSerialNumber As String, ByRef sTabSerialNumberComponent() As String,ByRef sTabSubFamilyComponent() As String, Optional ByRef sTabMAJdate() As String = Nothing, Optional ByVal sFamily As String = "", Optional ByVal sSubFamily As String = "")
由于返回数组sTabMAJdate() 是可选，不知道如何赋值，对于非数组类型，我可以直接赋值，但是数组就不行了。
急切等待回复。
跪拜。。。

[解决办法]
还是看不懂，要不你把这段代码改成你的错误吧

VB.NET code

Imports System.Data.SqlClientModule Module1    Sub Main()        Dim a(-1) As String        SerialNumber_GetComponent(a)        SerialNumber_GetComponent()    End Sub    Public Function SerialNumber_GetComponent(Optional ByRef sTabMAJdate() As String = Nothing) As Boolean        ReDim Preserve sTabMAJdate(10)        sTabMAJdate(10) = "10"        Return False    End FunctionEnd Module