How do I split the date & time into two separate columns?

Sub SplitDate()
Dim vTxt

Range("A2").Select
While ActiveCell.Value <> ""
   vTxt = ActiveCell.Value
   ActiveCell.Offset(0, 1).Value = "'" & Format(vTxt, "mm/dd/yyyy")  'next col over
   ActiveCell.Offset(0, 2).Value = "'" & Format(vTxt, "hh:nn:ss")    '2 cols over
   
   ActiveCell.Offset(1, 0).Select  'next row
Wend
End Sub

Thanks Ranman. It was like magic! This is also the first time I heard of the While - Wend statement. I usually only use the While - Loop statement. Cool.