Returnere længde på lydfiler i formatet mm:ss

Hej eksperter

Dette er en hård nød for mig at knække, men jeg er kommet langt. I min form har jeg et tekstfelt som er navngivet Laengde. Jeg indsætter sti til lydfiler af typen MP3 og Wav i feltet Fillink. For at returnere længde på filerne bruger jeg nedenstående kode som sådan set virker, problemet er formatet:

'Kode start'
Function GetFileLaengefrm02()
Dim minsek As Long
If Form_frm02!Filtype = "mp3" Then
minsek = FileLen(Form_frm02!Fillink) / 16100
End If
If Form_frm02!Filtype = "wav" Then
minsek = FileLen(Form_frm02!Fillink) / 88000 / 2
End If
If minsek - (Int(minsek / 60) * 60) < 10 Then
Form_frm02!Laengde = Int(minsek / 60) & ":0" & minsek - (Int(minsek / 60) * 60)
Else
Form_frm02!Laengde = Int(minsek / 60) & ":" & minsek - (Int(minsek / 60) * 60)
End If
End Function
'Kode slut'

Som man kan se i koden returneres længden af lydfilen og vises i tekstboksen Laengde.

Hvis filen er mindre en 60 sekunder vises formatet således 0:21

Hvis filen er større en 60 sekunder vises formatet således 3:28

Jeg ønsker at formatet i stedet vises med et 0 mere fks. 00:21 03:28

Som sagt virker ovenstående kode, det er så "bare" at ændre formatet, det er det jeg ikke kan finde ud af. Nogen som har en ide til at ændre formatet :o)

Hilsen Anders.