Excel Vba Como Comparar 2 horas?

Hola

tengo mi código donde comparo 2 horas, pero me sale un error de tipo 13 "que no coinciden los tipos"

en mi celda celeccionada tengo "12:41:00 p.m."

Sub tiempo()
Dim ante As Date, HoraEnt As Date

'Hora entrada = ("09:00:00 AM")

HoraEnt = Format((TimeValue("09:00 AM")), "hh:mm:ss")

ante = Format((TimeValue(ActiveCell.Value)), "hh:mm:ss")

If ante > HoraEnt Then
MsgBox ("retardo")
Else
MsgBox ("puntual")
End If

ActiveCell.Offset(1, 0).Select
End Sub

saludos!..