Необходимо составить программу для извлечения точного квадратного корня из n-разрядного числа (n > 40) - VBA

Function SqrDec(ByVal x)
Dim x1
x1 = CDec(Sqr(x))
x = CDec(x)
Do
    SqrDec = x1
    x1 = (SqrDec + x / SqrDec) / 2
Loop Until SqrDec = x1
End Function
 
 
 
Sub qwertyy()
Dim a, b
Dim c As Integer
a = InputBox("vvedite chislo")
b = Mid(a, 3)
'MsgBox Len(a)
c = Val(a)
If b < 40 Then ActiveCell.Value = "net" Else: ActiveCell.FormulaR1C1 = SqrDec(c)
 
'MsgBox Len(b)
 
 
End Sub