Private Function WortMultiplikator(ByVal zahl As Integer, ByVal wort As _
      String, ByVal trennzeichen As String) As String
 
 
        Dim j As Integer
        Dim rgbwort As String
        Dim i As Integer
        WortMultiplikator = ""
        rgbwort = ""
 
 
        For i = 1 To zahl
            If i = 1 Then
                rgbwort = rgbwort & CStr(wort)
            Else
                '##############################################################
                ' ############
 
                Dim nTZ As String = ""
                nTZ = trennzeichen
 
                'For j = 1 To i ???????
 
                    'Hier muss eine zweite Schleife hin, wie?
 
                'Next j
 
                '##############################################################
                ' ############
                rgbwort = rgbwort & nTZ & CStr(wort)
 
            End If
 
        Next i
 
        Return rgbwort
 
    End Function

-----

-.-