一个函数返回数组的简单例子无法通过编译，求解

Question

Public Function arrayfunction(i As Integer) As Integer()
Dim x(2) As Integer
x(0) = i + 10
x(1) = i + 20
arrayfunction = x '把x赋值给函数arrayfunction
End Function
Private Sub Command1_Click()
Dim y(2) As Integer
  y = arrayfunction(1)
  MsgBox y(0)
  MsgBox y(1)
End Sub
编译错误，不能赋值给数组，为什么啊，求解，帮忙解答者，重赏40分

Answer 1

把 Dim y(2) As Integer 改成  Dim y() As Integer

Answer 2

Option ExplicitPublic Function arrayfunction(i As Integer) As Integer()
Dim X() As Integer
ReDim X(1)
X(0) = i + 10
X(1) = i + 20
arrayfunction = X '把x赋值给函数arrayfunction
End Function
Private Sub Command1_Click()
Dim Y() As Integer
ReDim Y(UBound(arrayfunction(1)))
  Y = arrayfunction(1)
  MsgBox Y(0)
  MsgBox Y(1)
End Sub