Dim hrs, min, seg As String

Private Sub Form_Load()
'Ponemos las horas,min y seg q queramos...P.e:
hrs = 0
min = 1
seg = 10
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
'Empezamos la cuenta atrás
seg = seg - 1

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Cuando los valores llegan a 0:

If seg < 0 Then
seg = 59
min = min - 1
End If

If min < 0 Then
min = 59
hrs = hrs - 1
End If

If hrs < 0 Then
hrs = 23 '23h o las 11h, lo q c quiera poner
End If

'/////////////////////////////////////////////////////////////////////////////////////////////////////
'Para los valores <10:

'Ponemos len<2 para evitar q empieze a poner ceros sin parar_
'ya q aunq c pongan el 0 seguirá siendo < 10

If Val(hrs) < "10" And Len(hrs) < 2 Then
hrs = "0" & hrs
End If

If Val(min) < "10" And Len(min) < 2 Then
min = "0" & min
End If

If Val(seg) < "10" And Len(seg) < 2 Then
seg = "0" & seg
End If

Label1.Caption = hrs & ":" & min & ":" & seg
End Sub