2º BTO: Ejercicio raíz cuadrada

Private Sub Command1_Click()
Dim radicando As Single
Dim raiz1 As Single
Dim raiz2 As Single
radicando = Text1.Text
If radicando >= 0 Then
raiz1 = radicando ^ (0.5)
raiz2 = -radicando ^ (0.5)
Label2.Caption = raiz1Label3.Caption = raiz2
Else
MsgBox "No se puede calcular la raíz cuadrada de un número negativo", vbCritical, "Error"
End If
End Sub
Private Sub Command2_Click()
End
End Sub