Private Function VorherlZahlenKette1(ByVal zahl As Integer) As String
        Dim rgbzahl As String = String.Empty
        Dim sep As String = String.Empty
        For i As Integer = 1 To zahl
            rgbzahl += sep & CStr(i)
            sep = ","
        Next i
        Return rgbzahl
    End Function

    Private Function VorherlZahlenKette2(ByVal zahl As Integer) As String
        Dim vals(zahl - 1) As String
        For i As Integer = 1 To zahl
            vals(i - 1) = CStr(i)
        Next i
        Return Join(vals, ",")
    End Function

    Private Function VorherlZahlenKette3(ByVal zahl As Integer) As String
        Dim rgbzahl As String = String.Empty
        For i As Integer = 1 To zahl
            rgbzahl = rgbzahl & CStr(i) & (",")
        Next i
        Return Strings.Left(rgbzahl, rgbzahl.Length - 1)
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist