Private Function VorherlZahlenKette(ByVal zahl As Integer) As String
      Dim rgbzahl As New System.Text.StringBuilder
 
      For i = 1 To zahl - 1
         rgbzahl.Append(i.ToString & ",")
      Next i
 
      Return rgbzahl.Append(zahl.ToString).ToString
   End Function
 
   Private Function VorherlBuchstabenKette(ByVal zahl As Integer) As String
      Dim rgbzahl As New System.Text.StringBuilder
 
      For i = 65 To zahl + 64 - 1
         rgbzahl.Append(Chr(i) & ",")
      Next i
 
      rgbzahl.Append(Chr(zahl + 64))
 
      Return rgbzahl.ToString
   End Function