[Resolvido]Contar de 1 a 6, decrescer até 1 repetitivametne

Amigos, ótimo 2013 para todos!

Tenho as seguintes linhas:

Private Sub Form_Open(Cancel As Integer)
Me!Texto0 = 1
End Sub

Private Sub Form_Timer()
Me!Texto0 = Me!Texto0 + 1
If Me!Texto0 = 6 Then
Me!Texto0 = 1
End If
End Sub

Quando abro o form, a caixa de texto vai de um a seis e volta a 1:
1 2 3 4 5 6 1 2 3 4 5 6 1

Preciso que quando ela chegar a 6 volte decrescentemente:
1 2 3 4 5 6 5 4 3 2 1 2 3 4 5 6 5 4 3 2 1

Já tentei várias vezes mas com certeza do jeito errado, peço-lhes auxílio. Meu muito obrigado.

Código:

Private Sub Form_Timer()

If Me!Texto0 = 1 Then Me.Tag = "+"
If Me!Texto0 = 6 Then Me.Tag = "-"

If Me.Tag = "+" Then
    Me!Texto0 = Me!Texto0 + 1
Else
    Me!Texto0 = Me!Texto0 - 1
End If

End Sub

Feliz 2013!

Muito obrigado Cláudio, mais uma grande lição que recebo aqui!

Posso pedir a explicação sobre o funcionamento também? rsrs

Vou tentar explicar... rs

Tag (Marca) é uma propriedade do formulário, que estou usando pra indicar se está na "hora" de incrementar, atribuindo o caracter (+), ou de decrementar (-).

Quando Me!Texto0 atinge 6, está na hora de decrementar e o código passa a fazer Me!Texto0 = Me!Texto0 - 1 porque Me.Tag está igual a "-".

Quando atinge 1, está na hora de incrementar e o código passa a fazer Me!Texto0 = Me!Texto0 + 1 porque Me.Tag está igual a "+".

Se quer saber como cheguei a essa solução, não vou saber explicar. Só sei que é necessário um certo tempo de treinamento em lógica de programação... rsrs

Já valeu Cláudio e me deu a resposta que eu queria, a parte condicional eu entendi, só fiquei pra DP na parte da lógica, mas como você disse, isso vem com experiência.
Muito obrigado