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