Salve! Ho un urgente bisogno di finire una programmazione e non riesco a capire dove ho sbagliato. Devo creare un applicazione che mostri il resto dovuto all'utente in Quarti di dollaro, Dimes (10cents), Nickels (5cents) e Pennies (1cent). L'utente inserisce in due textbox la quota pagata e il costo dell'oggetto che compra, entrambi espressi in centesimi.
Questo è il codice che ho creato, ma non mi ritrovo con i calcoli... Dove sbaglio?
Sono veramente alle prime armi e non riesco a capirci...
Grazie!!

codice:
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
        ' Variables for fields
        Dim lblCost As Double = CDbl(txtCostItm.Text)
        Dim lblAmnt As Double = CDbl(txtAmntGvn.Text)


        ' Find Difference between Cost of Item and Price Received
        Dim temp As Double = txtAmntGvn.Text - txtCostItm.Text

        'Declare Integers

        Dim lblQuar As Integer
        Dim lblDim As Integer
        Dim lblNick As Integer
        Dim lblPenn As Integer

      


        'How many quarters will be handed
        lblQuar = CInt(temp / 25)
        temp = temp - CDbl(CDbl(lblQuar) * 25)
        lblQrts.Text = lblQuar.ToString

        'Dimes 
        lblDim = CInt(temp / 10)
        temp = temp - CDbl(CDbl(lblDim) * 10)
        lblDimes.Text = lblDim.ToString

        'Nickels 
        lblNick = CInt(temp / 5)
        temp = temp - CDbl(CDbl(lblNick) * 5)
        lblNckls.Text = lblNick.ToString

        'Pennies
        lblPenn = CInt(temp / 1)
        temp = temp - CDbl(CDbl(lblPenn) * 1)
        lblPennies.Text = lblPenn.ToString