DIM Inicio, fin AS Variant
    DIM horaini, minuini, seguini, horafin, minufin, segufin AS Integer
    Numero = CInt(Mid(LAST.text, 3) - 1) 'coger los caracteres a partir de la posicion 2 y convertirlos a integer

    IF LAST.BackGround = &FF0000
      LAST.BackGround = &5FFF5F
            horafin = Time(Hour(Now))
            minufin = Date(Minute(Date))
            segufin = Time(Second(Now))
            Etiquetas[Numero].Text = horafin & ":" & minufin & ":" & segufin
            fin = Etiquetas[Numero].Text
      ELSE
            LAST.BackGround = &FF0000
            horaini = Time(Hour(Now))
            minuini = Time(Minute(Now))
            seguini = Time(Second(Now))
            Etiquetas[Numero].text = horaini & ":" & minuini & ":" & seguini
            Inicio = Etiquetas[Numero].Text
    ENDIF

al pulsar el boton oportuno Etiquetas[Numero].text deberia de tomar la "HORA INICIAL", al volver a pulsarlo deberia de poner la "HORA FINAL", y quierosaber el intervalo entre las dos horas

Hola
La solución es coger fecha final e inicial, utilizar datediff y elegir la salida en función de la precision que quieras. Si quieres la plrecisión en segundos datadiff en segundos. Si quieres la precisión en minutos datediff en minutos.

Si lo tienes en minutos para calcular las horas haces esa cantidad entre 60. Si lo quieres en segundos haces la cantidad entre 3.600 para obtener las horas y el resto lo divides entre 60 para obtener los minutos. El resto son segundos.

¿Por qué preguntas si no has mirado datediff?