Private Function ConvertirALetras4(ByVal num As Integer) As String

Dim base26 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 cadena As String = ""
Dim tmp As Integer = num

While tmp > 0
If tmp Mod 26 = 0 Then
cadena += base26(25)
tmp = (tmp \ 26) - 1
Else
cadena += base26(tmp Mod 26 - 1)
tmp = tmp \ 26
End If
End While
Return StrReverse(cadena)
End Function

  Private Function prueba(ByVal num As Integer) As String
        Dim listaLetrasArray 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"}

        If (num > 25) Then

            Dim numeroentero As Integer = (num \ 26) - 1
            If (numeroentero > 25) Then
                Dim chi As Integer = numeroentero \ 26
                chi = numeroentero / 26
                numeroentero = numeroentero - (26 * (numeroentero \ 26))
                num = num - (26 * ((num \ 26) - 1))
            Else
                num = num - (26 * (num \ 26))
            End If

            Return listaLetrasArray(numeroentero) & prueba(num)
        Else

            Return listaLetrasArray(num)

        End If

    End Function