ma mi sembra che sia valido..guarda un po'..

EndTime = "15:30"
p3 = Left(EndTime, 2)
p4 = Mid(EndTime,4,2)
myEndTime = p3 & "." & p4 & ".00"
nMattina = TimeSerial(08,30,00)
Mattina = DateDiff("h", myEndTime, nMattina)

ok?