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

-----

-.-

Beitrag wurde zuletzt am 24.09.10 um 14:02:37 editiert.