Macro de tiempo

Estoy tratando de hacer un formulario que me guarde el tiempo exacto en un cuadro de texto al momento de darle click al botón, ya tengo el botón inicio y fin pero no me da el resultado de mi operación...
Dejo el código por si no me explique muy bien
Private Sub fin_Click()
If maq1f.Text = "" Then
maq1f.Text = Now()
End If
End Sub
Private Sub inicio_Click()
If (maq1i.Text = "") Then
maq1i.Text = Now()
End If
End Sub
Private Sub total_Click()
total1.Text = (maq1f.Text - maq1i.Text) * 24 * 6
End Sub
No se si este bien así o es mejor con variables, el *6 es del precio por hora, es para un cyber