[Resolvido]Manejando Loop

Boas pessoal,
Venho através deste pedir um auxilio para o manejamento de loop.

Tenho o seguinte caso:

A = 1
B = 2

Max = 10

Do While A < Max

If A < B Then
'Return
B = B + 1
If B < Max Then
Exit Sub
End If
End If

If B = A + 3 Or B = A + 8 Then
'Voltar ao loop na parte sinalizada
End If

Loop

O que procuro fazendo isto é gerar o loop com a seguinte sequencia: B = 3;5;6;7;8;10

Não sei se é possível voltar o loop para uma parte do código Dentro ou Fora do "Do While" mais se for possível agradeceria se me explicassem como

se eu entendi direito, você pode usar um simples goto....

Código:


Do While A< Max
  If A < B Then
      aReturn:
      B = B + 1
      If B < Max Then
        Exit Sub
      End If
  End If

  If B = A + 3 Or B = A + 8 Then
      GoTo aReturn
  End If

Loop

Fabio Bom dia,

É isso mesmo, XD.
Demorou um pouco para adaptar para meu projeto achei que seria simples, mandar pra la e pra cá me resultado o que espero.
Mas enfim consegui adaptar e sigo no projeto.

Muito obrigado.