Probleme beim Verbinden von A und J

Ich habe eine kleine Funktion geschrieben, die den Spaltenname berechnet aber bei der Spalte AJ ( 36 ) bekomme ich kein Ergebnis.
Das Problem ist tiefgehender auch folgendes bringt kein Ergebnis:

Sub aaaa()

b = Chr(65) & Chr(74)
c = "A" & "J"

End Sub

Die Kombination von A am Ende und J am Anfang lässt sich offenbar nicht verbinden. Getestet auf mehreren Excel Versionen ( 365 und 2010 )

Die Frage ist warum ?


Anbei noch die Funktion für den Spaltennamen

Public Function sp_na(spalte As Variant) As Variant 'des

Dim ist_nr As Integer

On Error GoTo ist_spname
spn = spalte
ist_nr = spalte
On Error GoTo 0
spn = ""

If spalte 703 Then ' ZZ = 702
If spalte 27 Then
spn = Chr(spalte + 64)
Else
spl = Int((spalte - 1) / 26)
spr = spalte - spl * 26
spn = Chr(spl + 64) & Chr(spr + 64)
End If
Else
sp1 = Int((spalte - 27) / 26 / 26)
sp2 = Int((spalte - 1) / 26) - sp1 * 26
sp3 = spalte - sp1 * 26 * 26 - sp2 * 26
spn = Chr(sp1 + 64) & Chr(sp2 + 64) & Chr(sp3 + 64)
End If

ist_spname:
sp_na = spn

End Function