Editing string based on length

Good morning, please see spreadsheet below. I get all my results from a CSV file. This isn’t a problem except for the first nine days of the month where excel cuts off the first 0 so 01012009 reads 1012009 and cannot be properly concatenated.

Date Name Item
1012009 Bob Keyboard
1012009 Sid Mouse
1012009 Dave Monitor
1012009 Ed Monitor
1012009 Andrew Keyboard
1012009 Dan Keyboard
1012009 Bruce Keyboard

What I would like to do is have VB read the contents of the date cell and if it is less than eight characters, edit the cell by adding a zero at the beginning of the string. This needs to be a one off process for all cells. Can anyone come up with code that might make this happen? Thanks, 0nyx