Public Class zufallsgenerator
 
    'Variable für die Zufallszahl
    '---------------------------
    Private _z As Random
 
    'Konstruktor
    '-----------
    Public Sub New()
        _z = New Random
    End Sub
 
    'Zufallsgenerator
    '----------------
    Public Overridable Function zufallstring(ByVal input As String, ByVal _
      anzzeichen As Integer) As String
        Dim strgb As New System.Text.StringBuilder
        Dim zeichenarray() As Char = input.ToCharArray
        For i As Integer = 1 To anzzeichen
            Dim p As Integer = _z.Next(0, zeichenarray.Length)
            strgb.Append(zeichenarray(p))
        Next i
        Return strgb.ToString
    End Function
 
End Class

Ich glaube, dass Zitronenfalter Zitronen falten