Extract "Time" from custom "Date and Time" format

Along the lines of:

Public Sub Example()
Dim vDates As Variant, vTimes As Variant
With Range(Cells(1, "A"), Cells(Rows.Count, "A").End(xlUp))
    vTimes = Application.Transpose(Evaluate("IF(ISNUMBER(" & .Address & "),MOD(" & .Address & ",1),"""")"))
    vDates = Application.Transpose(Evaluate("IF(ISNUMBER(" & .Address & "),INT(" & .Address & "),REPT(" & .Address & ",1))"))
End With
End Sub

the transpose is not strictly required