Определить принадлежит ли точка сфере

Public Sub dva()
Dim a As Integer, B As Integer
a = InputBox("pervoe")
B = InputBox("vtoroe")
MsgBox "Среднее арифметическое " & (a + B) / 2
If (a * B) >= 0 Then
MsgBox "Геометрическое= " & Sqr(a * B)
Else
MsgBox "Невозможно найти среднее геометрическое"
End If
End Sub

otvet=(a+b)/2

otvet=1/(1/a+1/b)

arr=array("ян", "фе","ма","ап","ма","ин","ил","ав","се","ок","но","де","ян")
m=inputbox("m?")
msgbox arr(m)

N=44
if len(N) = 2 and N mod 2 = 0 then msgbox "yes": else msgbox "no"

Public Sub sfera()
Dim x, y, z, a, b, c, r
x = Val(InputBox("x"))
y = Val(InputBox("y"))
z = Val(InputBox("z"))
a = Val(InputBox("a"))
b = Val(InputBox("b"))
c = Val(InputBox("c"))
r = Val(InputBox("r"))
If (a - r) <= x And (a + r) >= x And (b - r) <= y And (b + r) >= y And (c - r) <= z And (c + r) >= z Then
MsgBox "da"
Else
MsgBox "net"
End If
End Sub

Sub Task_2()
a = InputBox("a:")
b = InputBox("b:")
MsgBox IIf(a < b, a, b)
End Sub

Sub Task_3()
Dim a As Integer, b As Integer, c As Integer, sStr As String
sStr = "Не существует "
a = Val(InputBox("Угол а:"))
b = Val(InputBox("Угол b:"))
c = a + b
If c < 180 Then
    sStr = "Существует "
    If a = 90 Or b = 90 Or 180 - c = 90 Then sStr = "Существует прямоугольный "
End If
MsgBox sStr & "треугольник"
End Sub

Sub Task_4()
On Error Resume Next
Dim iYear As Integer, iMonth As Integer
iYear = InputBox("Год:")
iMonth = InputBox("Месяц:")
MsgBox DateDiff("d", DateSerial(iYear, iMonth, 1), DateSerial(iYear, iMonth + 1, 1))
End Sub

Sub Task_5()
Dim iCell As Integer, i As Integer
iCell = 1
For i = 0 To 24 Step 3
iCell = iCell * 2
Next
MsgBox iCell
End Sub