Определить сколько треугольников лежит внутри окружности радиуса R с центром в начале координат

Option Explicit
Dim NumTrng  As Integer, Radius As Double, Vertex() As Double   '
 
Private Sub Command1_Click()
    GetData
    MsgBox "Внутри окружности радиусом " & Radius & vbCrLf & _
           " находятся " & CntTrng(Vertex, NumTrng, Radius) & _
           " треугольников из " & NumTrng, _
             vbInformation, "Done!"
End Sub
 
Private Sub GetData()
    Dim i As Integer, j As Integer
    Randomize ' для получения случайных данных "по умолчанию"
    NumTrng = InputBox("Введите количество треугольников", "Ввод данных", Int(Rnd * 5 + 1))
    Radius = InputBox("Введите радиус окружности", "Ввод данных", Int(Rnd * 20 + 1))
    ReDim Vertex(1 To NumTrng, 1 To 3, 1 To 2)
    For i = 1 To NumTrng
        For j = 1 To 3
          Vertex(i, j, 1) = InputBox("Введите координату  Х  " & j & "-ой вершины  " & i & "-го треугольника", "Ввод данных", Int(Rnd * 20))
          Vertex(i, j, 2) = InputBox("Введите координату  Y  " & j & "-ой вершины  " & i & "-го треугольника", "Ввод данных", Int(Rnd * 20))
        Next j
    Next i
End Sub
 
Private Function CntTrng(V() As Double, n As Integer, r As Double) As Integer
    Dim i As Integer
    For i = 1 To n
       If Sqr(V(i, 1, 1) ^ 2 + V(i, 1, 2) ^ 2) < r And _
          Sqr(V(i, 2, 1) ^ 2 + V(i, 2, 2) ^ 2) < r And _
          Sqr(V(i, 3, 1) ^ 2 + V(i, 3, 2) ^ 2) < r Then CntTrng = CntTrng + 1
    Next i
End Function

Option Explicit
Dim NumTrng  As Integer, Radius As Double, a As Integer
Dim Vertex() As Double, TrngInside As Integer   '
 
Private Sub Command1_Click()
    GetData
    TrngInside = CntTrng(Vertex, NumTrng, Radius)
    MsgBox "Внутри окружности радиусом " & Radius & vbCrLf & _
           " находятся " & TrngInside & _
           " треугольник" & EndOfWord(TrngInside) & " из " & NumTrng, _
             vbInformation, "Done!"
End Sub
 
Private Sub GetData()
    Dim i As Integer, j As Integer
    Randomize ' для получения случайных данных "по умолчанию"
    NumTrng = InputBox("Введите количество треугольников", "Ввод данных", Int(Rnd * 5 + 1))
    Radius = InputBox("Введите радиус окружности", "Ввод данных", Int(Rnd * 20 + 1))
    ReDim Vertex(1 To NumTrng, 1 To 3, 1 To 2)
    For i = 1 To NumTrng
        For j = 1 To 3
          Vertex(i, j, 1) = InputBox("Введите координату  Х  " & j & "-ой вершины  " & i & "-го треугольника", "Ввод данных", Int(Rnd * 20))
          Vertex(i, j, 2) = InputBox("Введите координату  Y  " & j & "-ой вершины  " & i & "-го треугольника", "Ввод данных", Int(Rnd * 20))
        Next j
    Next i
End Sub
 
Private Function CntTrng(V() As Double, n As Integer, r As Double) As Integer
    Dim i As Integer
    For i = 1 To n
       If Sqr(V(i, 1, 1) ^ 2 + V(i, 1, 2) ^ 2) < r And _
          Sqr(V(i, 2, 1) ^ 2 + V(i, 2, 2) ^ 2) < r And _
          Sqr(V(i, 3, 1) ^ 2 + V(i, 3, 2) ^ 2) < r Then CntTrng = CntTrng + 1
    Next i
End Function
 
Private Function EndOfWord(a As Integer) As String
    Select Case a Mod 10
        Case 2, 3, 4: EndOfWord = "а"
        Case 5, 6, 7, 8, 9, 0: EndOfWord = "ов"
    End Select
    If a > 10 And a < 15 Then EndOfWord = "ов"
End Function

If a Mod 100 > 10 And a Mod 100 < 15 Then EndOfWord = "ов"