Visual Basic - instruccion

hola de nuevo
tengo un problema, y no se como hacer

tengo el siguiente formulario:
Private Sub form_load()
Dim HoraInicio As Date
HoraInicio = Format(Now, "hh:mm:ss")
Label1.Caption = "hora inicio " & HoraInicio

If ... Then
HoraFinal = Format(Now - HoraInicio, "hh:mm:ss")
End If
Label1.Caption = "hora de entrada:" & HoraInicio
Label2.Caption = "hora salida: " & Format(Now, "hh:mm:ss")
Label3.Caption = "tiempo: " & HoraFinal
Label4.Caption = ""

Quiero que al pulsar el boton command2 (que es el de cerrar la aplicacion), me muestre la hora de salida, pero al darle me pone la misma hora. No se como hacer

Declara HoraInicio en la sección de declaraciones del módulo para que sea visible en todo él, sería algo así:

Dim HoraInicio As Date

Private Sub Form_Load()
HoraInicio = Now
Label1.Caption = Format(HoraInicio, "hh:mm:ss")
End Sub

Private Sub Command1_Click()
Dim HoraFinal As Date
HoraFinal = Now
Label2.Caption = Format(HoraFinal, "hh:mm:ss")
Label3.Caption = Format(HoraFinal - HoraInicio, "hh:mm:ss")
End Sub

gracias, pero no me funciona.
Lo q intento es que cuando inicie la aplicacion registre la hora de entrada, y al darle al command2 q es el cierre del programa me registre la hora de entrada, la de salida y el tiempo de ejecucion

de esta manera solo registra la hora de inicio,al ejecutar y me muestra la de salida al darle al boton salir, pero no me muestra el tiempo q estubo en ejecucion

Estás seguro de lo que dices?

Has mirado el valor que dá el Label3?

Tienes declarada la variable HoraInicio a nivel de módulo (es decir, antes que cualquier procedimiento)?

Haz un copy-pate del código tal como lo puse y prueba.

perdona, tenías razon, va a la perfeccion
No lo habia declarado en general, sino q lo hice en el form