Dovresti guardare la funzione Format.
Questo problema è stato gia affrontato nel forum
cmq, mi pare che dovresti:

dim pippo as string
pippo = Format(MyTextFied.Text,"#.###")

purtroppo non ho d'avvanti a me Vb, altrimenti avrei fatto la prova.
Cmq, questa è la strada giusta.
Ciao