Hace poco un compañero de la lista preguntó cómo podría hacer para añadir uno a un código compuesto por una letra y tres números, es decir, dicho código sería A001 - A002 ... A999 - B001 ...

Pues bien, una solución sería esta función que sirve para añadir uno a un código compuesto por una letra y cualquier cantidad de números (no está limitada a tres dígitos numéricos).

Function SumaUno(strTexto As String) As String
Dim i As Long, strLetra As String, strNumero As String
'guardo en letra el primer carácter
strLetra = Left(strTexto, 1)
'y en numero el resto
strNumero = Right(strTexto, Len(strTexto) - 1)
'si llegué a todo nueves comienzo en uno y sumo uno a la letra
i = Len(strNumero)
If strNumero = String(i, "9") Then
     strNumero = String(i - 1, "0") & "1"
     strLetra = Chr(Asc(strLetra) + 1)
Else
     strNumero = Format(CLng(strNumero) + 1, String(i, "0"))
End If
SumaUno = strLetra & strNumero
End Function