Dim NumToSquare As Double
Dim NumSquared As Double
NumToSquare = Convert.ToDouble(TextBox1.Text)
NumSquared = Math.Sqrt(NumToSquare)
If Double.IsNaN(NumSquared) Then
MsgBox("The number entered was negative")
Else
TextBox2.Text = NumSquared.ToString
End If