Problemas con Timer

Hola de nuevo experto! Tengo un pequeño problema. Estoy terminando una aplicación a la cual le he añadido un progresbar. Después se me ocurrió la idea de añadir una especie de cronometro para que se vaya mostrando el tiempo transcurrido de ejecución. Ahora bien, tengo el siguiente código:
Dim time As Long, time2 As Long, TotalTime As Long
    time = Timer--> dejo estatico este valor para poder restarselo luego
    intMax = 60
    For intIndex = 1 To intMax
        sngPercent = intIndex / intMax
        time2 = Timer --> Aqui coge el nuevo tiempo por cada paso del bucle
        TotalTime = time2 - time--> aqui le resto al tiempo de ahora, el anterior
        labPg1v.Caption = Format(sngPercent, "0%")
        labPg1.Width = Int(labPg1.Tag * sngPercent)
        Label3.Caption = Format(TotalTime, "00:00")--> aqui muestro el tiempo transcurrido
        DoEvents
        '------------------------
        Call option_sabr
        '------------------------
        Sleep 100
    Next
Mi problema es que cuando el tiempo total llega a 00:59 no pasa a ser 1:00 sino que sigue hasta 00:99 y tras pasar ese valor se transforma en 1:00, ¿Cómo podría corregir esto? .
Espero haberme explicado con claridad
Muchas gracias por tu tiempo.