Volver a realizare una funcion

[culd]

Lo llamas con

Call BLABLA

Código vb:

Private Sub BLABLA()
    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