[VB.net]数字からExcelのアルファベット列番号に変換する方法

Module Module1
    Sub Main()
        ' 数字からエクセルのアルファベット列番号に変換する関数
        Dim excelColumn As String = GetExcelColumnName(27)
        
        ' 結果を表示
        Console.WriteLine("エクセルのアルファベット列番号: " & excelColumn)

　　　　 '結果：エクセルのアルファベット列番号: AA
    End Sub

    Function GetExcelColumnName(columnNumber As Integer) As String
        ' ASCIIコードを利用してアルファベットに変換
        Dim columnName As String = ""
        While columnNumber > 0
            Dim modulo As Integer = (columnNumber - 1) Mod 26
            columnName = Convert.ToChar(Asc("A") + modulo) & columnName
            columnNumber = (columnNumber - modulo) \ 26
        End While
        Return columnName
    End Function
End Module