Составить программу вычисления функции У, используя процедуру-функцию нахождения суммы

Sub Main()
Dim X1 As Double
Dim X2(1 To 5) As Double
Dim X3(1 To 3) As Double
Dim Y As Double
 
If X1 < 0 Then
   MsgBox "Невозможно извлечь корень из отрицательного X1"
   Exit Sub
End If
 
Y = Sum(X2) - Sum(X3)
If Y = 0 Then
   MsgBox "Деление на 0"
   Exit Sub
End If
 
Y = Sqr(X1) / Y
End Sub
 
Function Sum(Arr) As Double
Dim I As Long
For I = 1 To UBound(Arr)
    Sum = Sum + Arr(I)
Next
End Function

Sub Main()
Dim X1 As Double
Dim X2(1 To 5) As Double
Dim X3(1 To 3) As Double
Dim Y As Double
x1=cells(3,1)
For i=1 to 5
x1(i)=cells(i,1)
next i
for i=1 to 3
x2(i)=cells(i,2)
next i

Sub Main()
Dim X1 As Double
Dim X2(1 To 5) As Double
Dim X3(1 To 3) As Double
Dim Y As Double
X1 = InputBox("X1")
For I = 1 To 5
X2(I) = Cells(I, 1)
Next I
For I = 1 To 3
X3(I) = Cells(I, 2)
Next I
 
If X1 < 0 Then
   MsgBox "Íåâîçìîæíî èçâëå÷ü êîðåíü èç îòðèöàòåëüíîãî X1"
   Exit Sub
End If
 
Y = Sum(X2) - Sum(X3)
If Y = 0 Then
   MsgBox "Äåëåíèå íà 0"
   Exit Sub
End If
 
Y = Sqr(X1) / Y
MsgBox Y
End Sub
Function Sum(Arr) As Double
Dim I As Long
For I = 1 To UBound(Arr)
    Sum = Sum + Arr(I)
Next
End Function