Private Sub Form_Load()
  Dim a As Long
  a = 102000 'El tiempo para Convertir_tiempo en segundos.!
  Text1.Text = Convertir_tiempo(a)
End Sub

Public Function Convertir_tiempo(ByRef duracion As Long) As String

        Dim Tmp As Long
        Dim Horas As Long
        Dim Minutos As Long
        Dim Segundos As Long

        On Error Resume Next

        Tmp = duracion

        Horas = Int(Tmp / 3600)
        Tmp = Tmp - (Horas * 3600)

        Minutos = Int(Tmp / 60)
        Tmp = Tmp - (Minutos * 60)

        Segundos = Tmp

        Convertir_tiempo = ""
        If Horas > 0 Then Convertir_tiempo = Format(Horas, "00") & ":"
        Convertir_tiempo = Convertir_tiempo & Format(Fix(Minutos), "00") & ":"
        Convertir_tiempo = Convertir_tiempo & Format(Fix(Segundos), "00")

    End Function

const SEGUNDOS_HORA=3600
const SEGUNDOS_MINUTO=60

dim a as long   
dim horas as integer
dim minutos as integer
dim segundos as integer

....
'aki puedes crearte una función que devuelva el valor  del finaly  listo
a=total segundos
'sacamos las horas
horas=a / SEGUNDOS_HORA
a=a MOD horas
'sacamos los minutos
minutos=a/SEGUNDOS_MINUTO
a=a MOD minutos
'sacamos los segundos
segundos=a

text1.text=format(horas,"00") & format(minutos,"00") & format(segundos,"00")