Funcion para operaciones con horas

Función para obtener el mayor de dos horas en el formato que tu propones, le faltan agregar validaciones a ésta funcion, como verificar si el parametro pasado es una hora válida.

Function HoraMayor(ByVal vstrHora1 As String, vstrHora2 As String) As String
Dim strHora1 As String
Dim strHora2 As String

strHora1 = Format(vstrHora1, "short date")
strHora2 = Format(vstrHora2, "short date")

If CDate(strHora1) > CDate(strHora2) Then
HoraMayor = vstrHora1
Else
HoraMayor = vstrHora2
End If
End Function