Private Sub Text1_LostFocus()
   Text1.Text = Format(Val(Replace(Text1.Text, ",", ".")), "#0.000")
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)