Such numbers can be the primary key.
I'm sending you two functions
' Increment string
Public Function incAlphaNum(inputString As String) As String
Dim i As Long, formatStr As String
For i = Len(inputString) To 1 Step -1
If Not (IsNumeric(Mid(inputString, i, 1))) Then Exit For...