E' mai possibile che quando faccio dei calcoli con valori in Euro a volte mi vengono arrotondati bene ed altr volte la funziona formatcurrency non me li arrotonda?

codice:
For i = 0 To numeroarticoli.Text - 1
imponibile = imponibile + imptotale(i).Text
Next i

iva = (imponibile * 10) / 100

totalefattura = imponibile + iva


totaleimponibile.Text = FormatCurrency(imponibile, 2)

iva.Text = FormatCurrency(iva, 2)

totale.Text = FormatCurrency(totalefattura, 2)
totaleimponibile e totale mi danno valori corretti mentre iva.text mi arrotonda per difetto. Mi sapreste dare un consiglio su come risolvere il problemuccio?
Grazie e ciao