Last 4 digits of cell

I would like to take the data from a bar code scanner and delete all but the last 4 digits. So for instance the user would click in cell A1 and scan the bar code which is "123456789". The A1 cell would contain the data "6789". What is the best way to do this?