How do you set the time on a variable once set with a Date in VBA

Question

Once I have set the tad variable to a date as in the following code, how do I set set the time on the variable?

Private Sub TimeAndDate()

    Di