Volver a realizare una funcion

[musicale]

e probado a meter un boton que sea el que haga el calculo, pero si cambio algun valor y doy en el boton, no hace mas el calculo.

Private Sub calcula_Click()
If Trim(cmbdesc) = "" Then GoTo Nodescuento

If Trim(txtcant) = "" Then
txtcant = "1"
End If
If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lbldesc = Val(cmbdesc) / 100 * Val(lblprec)
lblrest = Val(lblprec) - Val(lbldesc)
lblttotal = Val(lblprec) - Val(cmbdesc) / 100 * Val(lblprec)

End If

If Not Trim(txtrecv) = "" Then
lbldev = Val(txtrecv) - Val(lblprec) + Val(lbldesc)
End If

Nodescuento:

If Trim(txtcant) = "" Then
txtcant = "1"
End If
If lblprec = "0" Then
lblprec = Val(txtprecio) * Val(txtcant)
lblttotal = Val(txtrecv) - Val(lblprec)
End If

If Not Trim(txtrecv) = "" Then
lbldev = Val(txtrecv) - Val(lblprec)
End If
End Sub

no se que hacer