Prova così :

lire = Round((Val(prezzo.Text) / 1936.27), 2)



:bubu: