VB6自定义函数设计数组

用Variant，你可以返回数组，举例如下
Private   Function   ReturnArray(iarrSize   As   Integer)   As   Variant
        Dim   arr()   As   String
        ReDim   arr(iarrSize)
        For   i   =   0   To   iarrSize   -   1
                arr(i)   =   i
        Next   i
        ReturnArray   =   arr
End   Function

Private   Sub   Command1_Click()
        Dim   Result()   As   String
       
        Result   =   ReturnArray(10)
        For   i   =   LBound(Result)   To   UBound(Result)
                Debug.Print   Result(i)
        Next   i
End   Sub