Исправьте ошибку в коде

Function Vector(array1, n)
Dim IU As Currency 'Index_Uzgodzhenosti
Dim VU As Currency 'Vidnoshennya_Uzgodzhenosti
Dim L_max As Currency 'Vlasne_Znachenyaa_Max
Dim Vector1() As Variant 'Vector_Prioritetiv_Alternatyv
Dim e() As Integer 'Ryadoc_odinic'
Dim e_trans() As Integer
Dim X1, X2, X3, a As Integer
Dim array_30 As Variant 'Matricya_v_stepenі_30
X1 = array1
X3 = X1
For a = 2 To 30
X2 = X3
X3 = WorksheetFunction.MMult(X2, X1)
Next
array_30 = X3
If n = 2 Then
    IU = 0
    ReDim e(1) As Integer
    e = Array(1, 1)
    ReDim e_trans(1) As Integer
    e_trans = WorksheetFunction.Transpose(e)
Vector1 = WorksheetFunction.MMult(array_30, e_trans) / WorksheetFunction.MMult(e, WorksheetFunction.MMult(array_30, e_trans))
L_max = WorksheetFunction.Mmmult(e, WorksheepFunction.MMult(array1, Vector1))
Vector = Array(L_max, Vector1)
Exit Function
ElseIf n = 3 Then
    IU = 0.58
    ReDim e(2) As Integer
    e = Array(1, 1, 1)
    ReDim e_trans(2) As Integer
    e_trans = WorksheetFunction.Transpose(e)
 ElseIf n = 4 Then
    IU = 0.9
    ReDim e(3) As Integer
    e = Array(1, 1, 1, 1)
    ReDim e_trans(3) As Integer
    e_trans = WorksheetFunction.Transpose(e)
 ElseIf n = 5 Then
    IU = 1.12
    ReDim e(4) As Integer
    e = Array(1, 1, 1, 1, 1)
    ReDim e_trans(4) As Integer
    e_trans = WorksheetFunction.Transpose(e)
 ElseIf n = 6 Then
    IU = 1.24
    ReDim e(5) As Integer
    e = Array(1, 1, 1, 1, 1, 1)
    ReDim e_trans(5) As Integer
    e_trans = WorksheetFunction.Transpose(e)
 ElseIf n = 7 Then
    IU = 1.34
    ReDim e(6) As Integer
    e = Array(1, 1, 1, 1, 1, 1, 1)
    ReDim e_trans(6) As Integer
    e_trans = WorksheetFunction.Transpose(e)
 ElseIf n = 8 Then
    IU = 1.41
    ReDim e(7) As Integer
    e = Array(1, 1, 1, 1, 1, 1, 1, 1)
    ReDim e_trans(7) As Integer
    e_trans = WorksheetFunction.Transpose(e)
ElseIf n = 9 Then
    IU = 1.45
    ReDim e(8) As Integer
    e = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
    ReDim e_trans(8) As Integer
    e_trans = WorksheetFunction.Transpose(e)
ElseIf n = 10 Then
    IU = 1.49
    ReDim e(9) As Integer
    e = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    ReDim e_trans(9) As Integer
    e_trans = WorksheetFunction.Transpose(e)
End If
Vector1 = WorksheetFunction.MMult(array_30, e_trans) / WorksheetFunction.MMult(e, WorksheetFunction.MMult(array_30, e_trans))
L_max = WorksheetFunction.Mmmult(e, WorksheepFunction.MMult(array1, Vector1))
VU = (L_max - n) / (n - 1) / IU
     Vector = Array(L_max, Vector1, VU)
     End Function

sub test
  vector range("A1:A5"),3
end sub