decimal points

[shaker]

Hi everyone,
i created 10 textboxes where when i enter data in one it calculate results in the others, what i wanted to do is when i enter the data in say text box one then it shifts the decimals points 4places, ie type in 12345 and when i press tab to go to next box then the result would be 1.2345
i tred something like this but obviously i am wrong

Private Sub OpenPrice_LostFocus()
Me.textbox.Text = Format(Me.OpenPrice.Text, "#,###")
End Sub

[vbnew]

try
:

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 4) & "." & Right(Text1.Text, 4)

[shaker]

hi,
that works fine but i need it to change all the text boxes soon as i press tab

[vbnew]

place the code in the lost focus event

will do the job
cherer