Option Explicit
Sub codigo()
Dim codigoinicial As String
Dim proximocodigo As String
Dim partenumerica As Long
Dim parteliteral As String
Dim acrescimo As Long
codigoinicial = "15265A"
parteliteral = Right(codigoinicial, 1)
partenumerica = CLng(Left(codigoinicial, Len(codigoinicial) - 1))
acrescimo = partenumerica + 1
proximocodigo = acrescimo & parteliteral
MsgBox proximocodigo
End Sub
Esse código é um esboço, se você passar mais detalhes sobre o que precisa, posso melhorar o código.
Anderson Diniz
