Function WURZEL2(ByVal Input As Double) As Double
Return System.Math.Sqrt(Input)
End Function