Sub EnterSquareRoot3()
Dim Num As Variant
Num = InputBox("Enter a value")
If Not IsNumeric(Num) Then
MsgBox "You must enter a number."
Exit Sub
End If
If Num < 0 Then
MsgBox "You must enter a positive number."
Exit Sub
End If
ActiveCell.value = Sqr(Num)
End Sub