Private Function ZahlenKetteAlpha(ByVal Zahl As Integer) As String
 
 
        Dim i As Integer
        Dim rgbbs As String
 
        ZahlenKetteAlpha = "" 'Vorbelegung
 
        If Zahl > 26 Then
            MessageBox.Show("Zu große Zahl. Sorry.")
            Exit Function
        End If
 
        rgbbs = ""
        For i = 1 To Zahl
            If i = 1 Then
                rgbbs = rgbbs & GibBuchstabe(i)
            Else
                rgbbs = rgbbs & (",") & GibBuchstabe(i)
            End If
 
        Next i
 
        Return rgbbs
 
    End Function
 
 
    Private Function GibBuchstabe(ByVal zahl As Integer) As String
 
        Dim Buchstabe As String = ("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
        GibBuchstabe = ""
        If zahl > 26 Then
            GibBuchstabe = ""
        Else
            GibBuchstabe = Buchstabe(zahl - 1)
            'GibBuchstabe = Mid(Buchstabe, zahl + 1, 1)
        End If
 
        End Function

-----

-.-