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.SqlClient

Module 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 Function

End Module