Me autorespondo...
Estuve probando.. y saque esto...
Código:
Dim t0 As Variant, t1 As Variant
Dim X As Integer
For X = 1 To Text1
t0 = Format("00:00:01", "hh:mm:ss")
t1 = Format(Text2, "hh:mm:ss")
Text2.Text = Format(TimeValue(t1) + TimeValue(t0), "hh:mm:ss")
Label1 = Format(TimeValue(t1) + TimeValue(t0), "hh:mm:ss")
Next X
Funciona para lo que quiero...
Pero si alguien tiene algo mas rentable.. se agradece...
PD: Paso a explicar para el que le interesa...
Text1, tiene la cantidad de segundos...
Text2, tiene 00:00:00
Lo que va haciendo por cada segundo del Text1, le suma al Text2 + 00:00:01...
No se si explique bien
--------------------------------------------------------
EDITO:
Ahora hise una funcion que devuelve un String con el resultado HORAS:MINUTOS:SEGUNDOS
Solo hay que mandarle la cantidad de segundos, y devuelve el resultado.
Código:
Public Function SumarTiempo(Segundos As Integer) As String
Dim A As Variant, B As Variant
Dim X As Integer
Dim T As String
T = "00:00:00" 'Lo inicializamos en 0 horas, 0 minutos, 0 segundos
A = Format("00:00:01", "hh:mm:ss") 'guardamos en una variable el formato de 1 segundos
For X = 1 To Segundos 'hacemos segundo a segundo
B = Format(T, "hh:mm:ss") 'En B guardamos un formato de hora:minuto:segundo segun lo que tenia T
T = Format(TimeValue(A) + TimeValue(B), "hh:mm:ss") 'asignamos a T la suma de A + B (osea, sumamos logicamente 1 segundo)
Next X
SumarTiempo = T 'a la funcion le damos el valor que hallamos en T
End Function
Sigo insistiendo. Si alguien tiene algo mas rapido y versatil, por favor pongalo.