Uma solução é a utilização de Expressões Regulares.
Expressão Regular
A seguinte expressão pode ser utilizada: \d+(?=$)
Em que esta expressão captura um ou mais dígitos \d+
antes do fim da string (?=$)
E a demo pode ser vista neste link
Habilitar o Regex no Excel
- RegEx precisa ser habilitado, Habilite o modo Desenvolvedor
- Na aba 'Desenvolvedor', clique em 'Visual Basic' e a janela do VBA irá abrir.
- Vá em 'Ferramentas' -> 'Referências...' e uma janela abrirá.
- Procure por 'Microsoft VBScript Regular Expressions 5.5', como na imagem abaixo. E habilite esta opção.

Código
Dim numero As Long
Dim codigo As String, resultado As String
Dim objCorresp As Object, objExpReg As Object
Set objExpReg = CreateObject("VBScript.RegExp")
'Expressão Regular
objExpReg.Pattern = "\d+(?=$)"
objExpReg.Global = True
codigo = "T110A17099"
Set objCorresp = objExpReg.Execute(codigo)
If objCorresp.Count <> 0 Then
For Each c In objCorresp
numero = CLng(c) + 1
codigo = Replace(codigo, c, "")
Next c
End If
resultado = codigo & numero
MsgBox (resultado)
Código de Função (UDF)
Function funcao_incrementar(codigo As String) As String
Dim numero As Long
Dim objCorresp As Object, objExpReg As Object
Set objExpReg = CreateObject("VBScript.RegExp")
'Expressão Regular
objExpReg.Pattern = "\d+(?=$)"
objExpReg.Global = True
Set objCorresp = objExpReg.Execute(codigo)
If objCorresp.Count <> 0 Then
For Each c In objCorresp
numero = CLng(c) + 1
codigo = Replace(codigo, c, "")
Next c
End If
funcao_incrementar = codigo & numero
End Function
Testando
Sub teste()
MsgBox (funcao_incrementar("T110A17099"))
End Sub