Public Function Sqr(ByVal Number As Double) As Double
Returns the square root
Public Function Pythagoras(a As Double, b As Double) As Double
Return Sqr(a^2 + b^2)
End Function
SendDebug Sqr(9) 'Prints 3
SendDebug Sqr(81) 'Prints 9
SendDebug Sqr(2) 'Prints 1.4142135623730951