Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Left(TextBox1, 4) & " " & Mid(TextBox1, 5, 4) & " " _
& Mid(TextBox1, 9, 4) & " " & Mid(TextBox1, 13, 4)
End Sub

Any characters over 16 will be dropped.

--

Vasant




"Dean Knox" wrote in message
...
Hi,

A 16 digit number is to be entered into a vbform textbox,
on leaving or pressing enter, I would like this number:

e.g abcdefghijklmnop

to be displyed in this format:

abcd efgh ijkl mnop

Can anyone help?

Thanks

Dean