Преобразование столбца в формат Excel

NumberToString(1) 'будет A
NumberToString(2) 'будет B
NumberToString(3) 'будет C (как получить?)

Public Class Forma
    Private Sub StartButton_Click(sender As Object, e As EventArgs) Handles StartButton.Click
        For t As Integer = 1 To 10000 'проверочный цикл
            MsgBox(NumToStr(t)) 'сообщение
        Next
    End Sub
    Public Function NumToStr(ByVal number As Double)
        Dim Alph() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"} 'алфавит в компьютере сам не возьмётся
        Dim ret As String = "" 'строка для ответа
        Do While number > 0 'пока больше 0
            Dim q As Byte = number Mod 26 'узнаём текущую букву
            ret = Alph(q) + ret 'прибавляем букву в НАЧАЛО
            number \= 26 'переход к следующей букве
        Loop
        Return ret 'ответ
    End Function
End Class

Private Function GetExcelColumnName(ByVal columnNumber As Integer) As String
    Dim dividend As Integer = columnNumber
    Dim columnName As String = String.Empty
    Dim modulo As Integer
 
    While dividend > 0
        modulo = (dividend - 1) Mod 26
        columnName = Convert.ToChar(65 + modulo).ToString() & columnName
        dividend = CInt(((dividend - modulo) / 26))
    End While
 
    Return columnName
End Function