essa fórmula:
Private Sub Command1_Click()
Dim vNum, vNum2 As Integer
vNum = 100 * (Text2 / Text1)
vNum2 = 100 - vNum
Text3 = vNum2 & "%"
End Sub
No caso usei 3 text's :
Text 1 = coloca o valor real do produto
Text 2 = coloca o valor que foi pago no produto
Text 3 = mostra quanto foi em % o desconto que teve
