Посмотрев на все представленные здесь версии, я решил самостоятельно сделать это, используя рекурсию.
Вот моя версия vb.net:
Function CL(ByVal x As Integer) As String
If x >= 1 And x <= 26 Then
CL = Chr(x + 64)
Else
CL = CL((x - x Mod 26) / 26) & Chr((x Mod 26) + 1 + 64)
End If
End Function