Access - Problemas con este Codigo - Juanjo

Private Sub btnsuma_Click()
Dim cadena As String
If recargo = btnVuelta1.Caption Then
cadena = Tiempo1
CalculaRecargo (cadena)
End If

End Sub
Private Sub CalculaRecargo(cadena)
Dim cadena1, cadena2, cadena3 As String
cadena1 = Mid(cadena, 1, 2)
cadena2 = Mid(cadena, 4, 2)
cadena3 = Mid(cadena, 7, 2)

cadena2 = cadena2 + 10

If cadena2 >= 60 Then
cadena2 = cadena2 - 60
cadena1 = cadena1 + 1
End If

If Len(cadena2) > 1 Then
Tiempo1 = cadena1 & ":" & cadena2 & ":" & cadena3
Else
Tiempo1 = cadena1 & ":0" & cadena2 & ":" & cadena3
End If
End Sub

Tengo este codigo que funciona perfectamente ahora el problema radica en lo siguiente, si observan sobre el procedimiento CalculaRecargo al final existe una variable que se llama Tiempo1, lo que sucede es que de este tipo de variables existen 30 es decir de Tiempo1 a Tiempo30, me gustaria saber como hago para independisar este proceso de manera que sea general y de vuelva el valor que tiene Tiempo1 que deberia llamarse de otra manera para que realmente este valor lo pueda aginar a Tiempo1 o donde lo necesite.
Gracias

No sé si te interprto bien tu duda, pero lo primero que se me ocurre es que estás trabajando mal con las variables.
En lugar de tener Tiempo1, Tiempo2...Tiempo30 deberías crear un Array (conjunto) de la siguiente manera:

Dim Tiempo(31) As String

Así en lugar de poner Tiempo1, Tiempo(2)...etc., pondrías Tiempo(1), Tiempo(2)... etc.

Así podrías hacer por ejemplo:

For x=1 to 30

tiempo(x)= x (Tiempo(1)=1, Tiempo(2)=2, Tiempo(30)=30)

next x

Como no entiendo muy bien tu código el ejemplo que puse es genérico.

Espero haberte sido de ayuda.
Saludos desde Argentina.