Mira con este ejemplo:
En el Form coloca dos CommandButtom (cmdIniciarContador y cmdFinalizarContador) y dos Labels (Label1 y Label2) y por supuesto, un control Timer (Timer1)
En la sección de declaraciones del Form (al principio) pones estas instruciones:
Option Explicit
Private Tiempo As String
Private Minutos As String
En el evento Click del botón iniciar contador:
Private Sub cmdIniciarContador_Click()
Tiempo = 0
Minutos = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
En el evento Timer del control Timer:
Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
If Tiempo = 60 Then
Tiempo = 0
Minutos = Minutos + 1
End If
Label1.Caption = "00:" & Format(Minutos, "00") & ":" & Format(Tiempo, "00") 'Format(Tiempo, "hh:MM:ss")
Label1.Refresh
End Sub
Y en el evento Click del botón finalizar contador:
Private Sub cmdFinalizarContador_Click()
Dim aVector() As String
Timer1.Enabled = False
aVector = Split(Label1.Caption, ":")
Label2.Caption = "Tiempo transcurrido: " & _
aVector(1) & " minuto(s) y " & aVector(2) & " segundos."
End Sub