Error 13

[davchi]

Hola a todos, tengo un problema

Private Sub Text2_Change()
Dim original As Double
Dim porcentaje As Variant
Dim total As Double
original = Text1.Text
porcentaje = Text2.Text
Label1.Caption = original
If porcentaje = Empty Then
Label1.Caption = original
Else
total = CDbl(original) * (1 - (CDbl(porcentaje) / 100))
End If
Label1.Caption = total
End Sub


El problema es que si agrego un valor en el Text2 y luego lo borro me queda en 0 el total, y tendria que oner el valor Original:


alguna idea de como solucionarlo

muchas gracias