Function getArr() As Variant

    Dim arrX(1 To 2) As Integer

    arrX(1) = 5
    arrX(2) = 10

    getArr = arrX

End Function

Sub Main()

   Dim arrX() As Integer

   arrX = getArr()

   MsgBox arrX(1) ' Выведет 5

End Sub