Funktion ZufallsText()

Function ZufallsText(WortLaenge As Integer)

' ----------------------------------------------------------
'  Gibt einen Zufallstext in der angegebenen Länge zurück
'  Benötigt zusätzlich die Funktion ZufallsInteger()
' ----------------------------------------------------------

Dim j As Integer, AsciiCode As Integer
Dim merk As String * 1

    For j = 1 To WortLaenge
        AsciiCode = ZufallsInteger(97, 125)
            Select Case AsciiCode
                Case 123
                    merk = "a"
                Case 124
                    merk = "o"
                Case 125
                    merk = "u"
                Case Else
                    merk = Chr(AsciiCode)
            End Select
        ZufallsText = ZufallsText & merk
    Next j

End Function