Visual Basic.NET - Generar correlativo

Saludos estimados.


Tengo un proyecto para generar unas tarjetas y tengo un problema en VB.NET. Los correlativos que debo generar deben tener la siguiente secuencia:

1B
2D
3C
4D
5E

y asi sucesivamente. Los numeros tienen fin dependiendo de la cantidad de elementos de una tabla de inventario pero una vez que se llega a la Z en el terminal debe empezar nuevamente por A. Osea si llegase a la 23Z el numero siguiente debe ser 24A

Intente el codigo por mi cuenta asi:

Dim Tarjetas As String

Dim i As Integer
Dim x As Integer
Dim n As Integer

x = 1

For i = 1 To Letras.Length - 1

For n = 1 To 50
Tarjetas = n & Letras(i)
texto.AppendText(Tarjetas & vbCrLf)

x = x + 1
If x = n Then
Exit For
End If


Next

Next

pero no me resulta ya me da valores asi:

1A
2A
3A
4A
5A
6A
7A
8A
9A
10B
11B
12B
.........

Pueden ayudarme?

Muchas gracias amigos de antemano.