Bueno, tienes q guardar el inicio de la hora q deseas restar y claro tambien el fin de la hora, luego realizas una simple resta, por ejemplo:
Private Sub Command2_Click()
HI = Now 'Guarda la hora de inicio
End Sub
Private Sub Command3_Click()
HP = Now 'Guarda la hora de parada
Lapso = HI - HP 'restamos y guardamos el valor
MsgBox Format(Lapso, "hh:mm:ss") 'Mostrar el resultado
End Sub
Como veras tienes q definir tus variables y cuando desees mostrar el resultado tienes q indicar el tipo de formato, de lo contrario te enviara el resultado pero creeme q no lo entederas.
Si tienes duda, tienes mi mail
Saludos!!!