Cell.Value = Left(cell.Value,3) & "." & Mid(Cell.Value,4,255)

or if always 6 characters:

Cell.Value = Left(cell.Value,3) & "." & Right(Cell.Value,3)


--
Regards,
Tom Ogilvy


philster wrote in message
...
Hi everyone

I need some help with excel visual basic.

I need to insert a character in amongst characters in a cell (column).

for example, for currency pair 'AUDUSD', I want to be able to insert to a
period '.' in between the third and forth character so that it looks like
'AUD.USD'

The content of the cell would not be AUDUSD all the time of course, but
the
inserted '.' needs to be between the third and forth character everytime.

Can someone tell me how to code this.

thanks

Phil