Visual Basic - Ayuda con Cronometro

Hola Gente,
Estoy teniendo problemas al colocar un cronometro en un form, la idea es que arranque el form, y cuando se haga click en un boton se active un cronometro, y que frene el cronometro cuando se haya terminado de ejecutar todo el codigo de ese Boton.
Les dejo el codigo, para ver si me pueden decir como puedo poner un cronometro POR FAVOR !!

Private Sub Command1_Click()
Dim Consultor as string

***ACA NECESITO QUE ARRANQUE EL TIMER PARA CONTAR EN SEGUNDOS***

If Dir("C:\Recursos.txt") <> "" Then
Open "C:\Recursos.txt" For Input As #1

While Not EOF(1)
Line Input #1, file_data$
consultor = Trim(Mid(file_data$, 1, 5))
Wend

Close #1

Else
MsgBox "El archivo no existe"
End If

**ACA NECESITO QUE SE DETENGA EL TIMER Y MUESTRE EL VALOR FINAL***

End Sub

NO LO PROBE, PERO ES UNA IDEA

Private Sub Command1_Click()
Dim Consultor as string

***ACA NECESITO QUE ARRANQUE EL TIMER PARA CONTAR EN SEGUNDOS***

timer1.enabled = true
do events

If Dir("C:\Recursos.txt") <> "" Then
Open "C:\Recursos.txt" For Input As #1

While Not EOF(1)
do events
Line Input #1, file_data$
consultor = Trim(Mid(file_data$, 1, 5))
Wend

Close #1

Else
MsgBox "El archivo no existe"
End If

**ACA NECESITO QUE SE DETENGA EL TIMER Y MUESTRE EL VALOR FINAL***

timer1.enabled = false
do events

End Sub