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

-----

-.-