Resultado esperado

Si ingresas 12:30:45 en HoraBase y mandas imprimir 5 copias:

• Copia 1 → 12:30:45
• Copia 2 → 12:33:15
• Copia 3 → 12:35:45
• Copia 4 → 12:38:15

• Copia 5 → 12:40:45

  VBScript.

Dim partes
Dim tiempoBase
Dim tiempoActual
Dim incremento

partes = Split(Format.NamedSubStrings("HoraBase").Value, ":")

If UBound(partes) = 2 Then
   tiempoBase = TimeSerial(CInt(partes(0)), CInt(partes(1)), CInt(partes(2)))
   incremento = (LabelCopyNumber - 1) * 150
   tiempoActual = DateAdd("s", incremento, tiempoBase)
   Value = Right("0" & Hour(tiempoActual), 2) & ":" & _
           Right("0" & Minute(tiempoActual), 2) & ":" & _
           Right("0" & Second(tiempoActual), 2)
Else
   Value = "Formato inválido (HH:mm:ss)"
End If

Resultado Actual

Solo incrementa el primer dato y luego repite el mismo valor en todas las copias.