Visual Basic - jak stworzyć stoper z formatem mm:ss lub hh:mm:ss?

Public Function mmss(Sekundy)
    Dim Wynik As String
    If (Sekundy - (Sekundy Mod 60)) / 60 >= 10 Then
        Wynik = (Sekundy - (Sekundy Mod 60)) / 60 & ":"
    Else
        Wynik = "0" & (Sekundy - (Sekundy Mod 60)) / 60 & ":"
    End If
    If Sekundy Mod 60 >= 10 Then
        Wynik = Wynik & (Sekundy Mod 60)
    Else
        Wynik = Wynik & "0" & (Sekundy Mod 60)
    End If
    mmss = Wynik
End Function

mmss(Sekundy)

text1 = ZmienCzas(Sekundy)

Dim sekundy As Long

Private Sub Form_Load()
sekundy = 0
'Uwstawiamy "tykanie" timera co sekundę, czyli 1000ms
Timer1.Interval = 1000
End Sub

Function ZmienCzas(Czas As Long) As String
Dim hh, mm, ss As String
hh = Czas / 3600
mm = Fix((Czas - (hh * 3600)) / 60)
ss = Czas Mod 60
'Zapisanie wyniku do zmiennej (wynik funkcji)
ZmienCzas = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00")
End Function

Private Sub Timer1_Timer()
'dodajemy wartość do licznika czasu (+1 sekunda)
sekundy = sekundy + 1
'wyświetlamy aktualny czas w polu tekstowym Text1
Text1.Text = ZmienCzas(sekundy)
End Sub