Vb6 funzione di Sconto

[tas]

Perchè non hai usato una function invece di una sub?
Così funziona:

Public Function Sconto(valore As Currency, perc As Single) As Currency
    Dim scontatos As Currency
    
    scontatos = valore * perc / 100
    Sconto = valore - scontatos
End Function

'la si usa così:
k = Sconto(100, 20)     'restituisce 80

Ciao