Hola:
Copia este código y podrás probarlo a ver si te sirve, necesitas command1, command2 y list1 no necesitas el timer
En principio es para que entiendas la idea, despues si es necesario comentamos las dudas.
Código:
Option Explicit
Dim Tiempo As Single
Dim Indice As Integer
Dim Fichero As String
Private Sub Command2_Click()
Tiempo = Timer
End Sub
Private Sub Form_Load()
Command2.Caption = "Reiniciar"
Command1.Caption = "Guardar"
Fichero = InputBox("Introduzca el nombre del archivo en el que quieres guardar los tiempos", "CuentaTiempos versión 0.01 por Antonio Álvarez")
Open App.Path & "\" & Fichero & ".txt" For Append As #1
End Sub
Private Sub Command1_Click()
Tiempo = Timer - Tiempo
List1.AddItem "Tiempo de oscilación " & Indice & ": " & Tiempo & " segundos"
Print #1, "Tiempo de oscilación " & Indice & ": " & Tiempo / 100 & " segundos"
Tiempo = Timer
Indice = Indice + 1
End Sub
Saludos