L'arrotondamento se non erro dovrebbe essere automatico.

Dim prezzo as currency
prezzo=10,456
prezzo=format(prezzo,"€#,##0.00")
txt1.text=prezzo