help with formatting text

Hi,

I have a text box which the user will enter numbers into. I then want to format the number to have 3 decimal places so that if the use types in 3.2 it will read as 3.200 or if the user types in 3.2345 it will read as 3.235 when the text box loses focus..

Any help would be appreciated..

Dan

Code:

---

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

---