per le ultime due cifre fai cosi:

MyStr = Format(334.9, "###0.00") ' Restituisce "334,90"

label1.caption=MyStr