Private Function VorherlZahlenKette(ByVal zahl As Integer) As String
 
        Dim i As Integer
        Dim rgbzahl As String
 
        rgbzahl = ""
        For i = 1 To zahl
            rgbzahl = rgbzahl & CStr(i) & (",")
        Next i
 
        Return rgbzahl
 
    End Function

-----

-.-