Определить, попадает ли точка М с координатами Х, У в круг с радиусом R и центром в начала координат - VB

Sub Input_Matrix()
    Dim vArr(1 To 3, 1 To 3), i As Integer, j As Integer, sStr As String
    For i = 1 To 3
        For j = 1 To 3
            vArr(i, j) = Int(Rnd * 10)
            sStr = sStr & vArr(i, j) & Space(5)
            If i = j Then
                vArr(i, j) = vArr(i, j) * 2
            Else
                vArr(i, j) = FormatNumber(vArr(i, j) / 2.72, 1)
            End If
            sStr1 = sStr1 & vArr(i, j) & Space(5)
        Next
        sStr = sStr & vbNewLine
        sStr1 = sStr1 & vbNewLine
    Next
    MsgBox sStr & vbNewLine & sStr1
End Sub