Private Function VorherlZahlenKette1(ByVal zahl As Integer) As String
 
        Dim rgbzahl As StringBuilder
        Dim sep As String = "{0},"
 
        For i As Integer = 1 To zahl
            rgbZahl.AppendFormat(sep, i )
        Next i
 
        rgbzahl.Length -= 1
 
        Return rgbzahl.ToString()
End Function