If (txtA) = 0 Then

   MsgBox "el valor de A no puede ser 0"

Else

   W = ((Val(txtB) * Val(txtB)) - (4 * (txtA) * (txtC)))

   If W < 0 Then
   MsgBox "no existen raices negativas"

   Else

    V = Sqr(W)
    x = (V - Val(txtB) / (2 * Val(txtA)))
    txtD = x


   End If



End If
End Sub