Вычислить объем и площадь полной поверхности призмы

Private Sub MyTriangle()
Dim maxs(1 to 3) As Double, max As Double, min As Double
Dim i As Integer, k As Integer
 
for i=1 to 3
NAX:
   maxs(i) = Val(nz(inputbox("введите размер стороны " & i, 1)))
   if maxs(i) <= 0 then goto NAX
Next
 
Max = maxs(1)
Min = maxs(2)
 
For i = 1 To 3
   'находим минимум и максимум, чтобы проверить существует данный треугольник
   If maxs(i) > Max Then Max = maxs(i): k = i
   If maxs(i) < Min Then Min = maxs(i)
Next
 
'сумма двух других сторон должно быть большe чем значения максимального среди них
If maxs(1) + maxs(2) + maxs(3) > 2 * Max Then 
   msgBox "С такими сторонами треугольник существует"
Else
   MsgBox "Такого треугольника нет в природе, набери другие параметры!"
End If
 
if maxs(k)^2-maxs((k+1) mod 3)^2-maxs((k+2) mod 3)^2 = 0 then _
MsgBox "Tреугольник является прямоугольным"
 
End Sub

Sub MyTriangle()
Dim maxs(1 To 3) As Double, max As Double, min As Double
Dim i As Integer, k As Integer
 
For i = 1 To 3
   maxs(i) = Val(Range("a" & i).Formula)
   If maxs(i) <= 0 Then MsgBox "error": Exit Sub
Next
 
max = maxs(1)
min = maxs(2)
 
For i = 1 To 3
   'íàõîäèì ìèíèìóì è ìàêñèìóì, ÷òîáû ïðîâåðèòü ñóùåñòâóåò äàííûé òðåóãîëüíèê
   If maxs(i) > max Then max = maxs(i): k = i
   If maxs(i) < min Then min = maxs(i)
Next
 
'ñóììà äâóõ äðóãèõ ñòîðîí äîëæíî áûòü áîëüøe ÷åì çíà÷åíèÿ ìàêñèìàëüíîãî ñðåäè íèõ
If maxs(1) + maxs(2) + maxs(3) > 2 * max Then
   Range("a4").Formula = "Ñ òàêèìè ñòîðîíàìè òðåóãîëüíèê ñóùåñòâóåò"
Else
   Range("a4").Formula = "Òàêîãî òðåóãîëüíèêà íåò â ïðèðîäå, íàáåðè äðóãèå ïàðàìåòðû!"
End If
 
If maxs(k) ^ 2 - maxs((k + 1) Mod 3) ^ 2 - maxs((k + 2) Mod 3) ^ 2 = 0 Then _
Range("a5").Formula = "Tðåóãîëüíèê ÿâëÿåòñÿ ïðÿìîóãîëüíûì"
 
End Sub

Sub MyPrizma()
Dim A As Double, B As Double, W As Double, S As Double, V As Double, H As Double
Dim C As Double, SP As Double
Dim i As Integer
 
A = Val(Range("a1").Formula)
B = Val(Range("a2").Formula)
W = Val(Range("a3").Formula)
 
C = Sqr(A ^ 2 + B ^ 2 - A * B * Cos(W * 3.14 / 180))
S = (A * B * Sin(W + 3.14 / 180)) / 2
H = (A + B) / 2
V = S * H
SP = S + (A + B + C) * H
 
Range("a4").Formula = "ïëîùàäü ïîëíîé ïîâåðõíîñòè ïðèçìû=" & SP
Range("a5").Formula = "îáúåì ïðèçìû=" & V
 
End Sub