La función VBA Hour devuelve un número entero correspondiente a la hora de la fecha u hora especificada.
Hour(fecha_hora)
Usando la función Hour para obtener la información de tiempo relevante:
Sub HourExample1()
myHour = #6:36:45 PM#
MsgBox Hour(myHour) 'Devoluciones: 18
End Sub
O por fecha y hora (para el mismo resultado):
Sub HourExample2()
myDate = #10/31/2020 6:36:45 PM#
MsgBox Hour(myDate) 'Devoluciones: 18
End Sub
Esta función también acepta una hora o fecha con hora en formato de texto:
Sub HourExample3()
myDate = "31/10/2020 18:36:45"
MsgBox Hour(myDate) 'Devoluciones: 18
End Sub