Bueno ahora no tengo VB, pero te doy una idea....
No creo que tal función exista, pero podrias crearla, seria ver si los segundos son mayores a 59 y si es asi sumarla cantidad a los minutos e igual estos a las horas y por ultimo ver si las horas son mayores a 24 e ir restandole de 24 en 24, te explico más o menos como sería el código, demás que tiene errores pues no tengo aqui VB
--------
t1 = Tiempo 'leerlo de donde este
t1h = (Left(t1, InStr(t1, ":") - 1) * 3600) 'tomar horas min y seg
t1m = (Mid(t1, InStr(t1, ":") + 1, 2)) * 60
t1s = Right(t1, InStrRev(t1, ":") - 3)
do 'ciclo para evaluar los segundos
doevents
t1s>59 then
t1m=t1m+1
t1s=t1s-60
loop until(t1s<60)
do 'ciclo para evaluar los minutos
doevents
t1m>59 then
t1h=t1h+1
t1m=t1m-60
loop until(t1m<60)
do 'ciclo para evaluar las horas
doevents
t1h>23 then
t1h=t1h-24
loop until(t1h<24)
t = nt1h + nt1m + nt1s
th = Fix(t / 3600) ' obtengo las horas
t = t - th * 3600
tm = Fix(t / 60) ' obtengo los minutos
t = t - tm * 60
ts = t ' obtengo los segundos
' finalmente muestro el formato HH:mm:ss
resultado = Format(th, "0#") & ":" & Format(tm, "0#") & ":" & Format(ts, "00")
Más o menos así sería una forma, otra cosa que se me ocurre es en lugar del ciclo utilizar la división y el módulo y hacerlo con esto, bueno ya verás
Espero te sirva
Saludos
