Sqr function

Sqr( num )

Returns the square root of a number.

The parameter num must be a valid number greater than or equal to zero.

Example

Sub Form_Click()
   Dim Msg, Number   ' Declare variables.
   Msg = "Enter a non-negative number."
   Number = InputBox(Msg)   ' Get user input.
   If Number < 0 Then
       Msg = "Cannot determine the square root of a negative number."
   Else
       Msg = "The square root of " & Number & " is "
       Msg = Msg & Sqr(Number) & "."
   End If
   MsgBox Msg   ' Display results.
End Sub