Need VBA Script to convert DateTime format to Date and Time in separate columns

Details:

I have a cell with 30/12/2009 00:01:16 (DATETIME format), I need to separate the date and time in two separate columns

Is there any macro instead of using TEXT TO COLUMNS to do this?