Private Function WortMultiplikator(ByVal zahl As Integer, ByVal wort As _
      String, ByVal trennzeichen As String) As String
        Dim rgbwort As String
        Dim i As Integer
        WortMultiplikator = ""
        rgbwort = ""
 
        For i = 1 To zahl
            If i = 1 Then
                rgbwort = rgbwort & CStr(wort)
            Else
                rgbwort = rgbwort & CStr(i * trennzeichen) & CStr(wort)
            End If
        Next i
        Return rgbwort
    End Function

        For i = 1 To zahl
            If i = 1 Then
                rgbwort = rgbwort & CStr(wort)
            Else
                rgbwort = rgbwort & anzahlanx(i - 1) & CStr(wort)
            End If
        Next i

    Public Function anzahlanx(ByVal GeklickteZahl As Integer) As String
        Return New String("-"c, GeklickteZahl)
    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