A função VBA Time retorna a hora atual do sistema.
Hora
Vamos economizar o tempo obtido pela função Time na célula A1:
Sub TimeExample1()
Range("A1") = Time
End Sub
Exibindo o tempo obtido pela função Time em formato de texto:
Sub TimeExample2()
MsgBox Format(Time, "hh\hnn") 'Retorna, por exemplo: 13h24
End Sub
Realizaremos a ação somente se agora forem pelo menos 17:00:
Sub TimeExample3()
If Hour(Time) >= 17 Then
MsgBox "O dia está quase acabando!"
End If
End Sub