There must be more code to this than you have shown.
Loops isn't declared anywhere, and as such you don't loop around ? However if it does work -which I doubt ;
Code:
Min = (SecondsToCount - DateDiff("s", StartTime, Time)) \ 60
Hours = (Min \ 60) Mod 60
'Debug.Print Hours, Min
MinsLeft = Min - (Hours * 60)
Sec = (SecondsToCount - DateDiff("s", StartTime, Time)) Mod 60
'Debug.Print Hours, Min, Sec, DateDiff("s", StartTime, Time)
Me.Label2.Caption = Hours & ":" & Format(MinsLeft, "00") & ":" & Format(Sec, "00")
loops = loops + 1