Определить принадлежит ли точка N(x, y, z) сфере с центром в точке Z(a, b, c) и радиусу r

Option Base 1
Option Explicit
Function Point(M As Variant, Z As Variant, R As Double) As String
Dim n, i As Integer, S As Double, Str As String
n = Z.Rows.Count: S = 0
For i = 1 To 3
S = S + (M(i) - Z(i)) ^ 2
Next i
If S <= R ^ 2 Then Str = "Внутри сферы" Else Str = "Вне сферы"
Point = Str
End Function

Option Explicit
Sub MansteinAVRE()
 
Dim ArrMsg: ArrMsg = Array("Координата точки x", "Координата точки y", "Координата точки z", _
        "Координата центра сферы a", "Координата центра сферы b", "Координата центра сферы c", _
        "Радиус сферы r")
Dim D(6) As Double
Dim i As Integer, L As Boolean
Dim Msg As String, InBox As String, MsgOut As String
 
Do
    MsgOut = ""
    For i = 0 To 6
        Msg = ""
        Do
            InBox = InputBox(Msg + vbCr + ArrMsg(i), "Ввод координат точки, центра сферы, радиуса")
            If (InBox) = "" Then Exit Sub
            Msg = "Введенное данное """ + InBox + """ не корректно"
            L = IsNumeric(InBox)
            If L Then
                D(i) = CDbl(InBox)
                MsgOut = MsgOut + ArrMsg(i) + vbTab + vbTab + "=" + InBox + vbCr
            End If
        Loop Until L
    Next
    If Sphere(D(0), D(1), D(2), D(3), D(4), D(5), D(6)) Then
        MsgOut = MsgOut + vbCr + "Точка не выходит за пределы сферы"
    Else
        MsgOut = MsgOut + vbCr + "Точка вне сферы"
    End If
    MsgBox MsgOut, 64
Loop
 
End Sub
 
Function Sphere(x, y, z, a, b, c, r)
    Sphere = (x - a) ^ 2 + (y - b) ^ 2 + (z - c) ^ 2 <= r ^ 2
End Function