VB Code:
Private Sub Form_Load()
Dim lngChr1 As Long
Dim lngChr2 As Long
Dim lngChr3 As Long
Dim lngNumber As Long
Dim strText As String
lngChr1 = 1
lngChr2 = 1
lngChr3 = 1
lngNumber = -1
Do
lngNumber = lngNumber + 1
If lngNumber > 999 Then
lngNumber = 0
lngChr3 = lngChr3 + 1
If lngChr3 > 26 Then
lngChr3 = 1
lngChr2 = lngChr2 + 1
End If
If lngChr2 > 26 Then
lngChr2 = 1
lngChr1 = lngChr1 + 1
End If
If lngChr1 > 26 Then Exit Do
End If
strText = Chr$(lngChr1 + 64) & Chr$(lngChr2 + 64) & Chr$(lngChr3 + 64) + Format$(lngNumber, "00#")
Debug.Print strText
Loop
End Sub