[?] Function Problem

[JaneAusten]

Heyho liebe Epvp Community,

habe hier ein kleines Problem mit meiner cvn-Pattern Function.

PHP Code:

    Function cvnGenerate(ByVal Muster As String)
        Dim Ausgabe As String = vbEmpty
        Muster = Muster.ToArray
        Dim Vokale As String = "aeiou"
        Dim Konso As String = "bcdfghjklmnpqrstvwxyz"
        Vokale = Vokale.ToArray
        Konso = Konso.ToArray
        Dim rndnb As New Integer
        Dim rnd As New Random
        For i = 0 To Muster.Length - 1
            Dim AktuellerChar As String = Muster(i).ToString
            If AktuellerChar = "c" Then
                rndnb = rnd.Next(0, Konso.Length)
                Ausgabe &= Konso(rndnb).ToString
            ElseIf AktuellerChar = "v" Then
                rndnb = rnd.Next(0, Vokale.Length)
                Ausgabe &= Vokale(rndnb).ToString
            ElseIf AktuellerChar = "n" Then
                Ausgabe &= rnd.Next(0, 10)
            End If
        Next
        Return Ausgabe
    End Function 


Die Funktion allein an sich funktioniert ja.
Aber wenn ich sie in eine For Schlaufe setze und sie sich immer wieder wiederholt, spuckt sie mir jedesmal das selbe Ergebniss auf obwohl ich ein Random Ergebniss haben will.

Kann mir da jemand helfen?

lg

[ThisIsATestAccount]

PHP Code:

    Private rnd As New Random

    Function cvnGenerate(ByVal Muster As String)
        Dim Ausgabe As String = vbEmpty
        Muster = Muster.ToArray
        Dim Vokale As String = "aeiou"
        Dim Konso As String = "bcdfghjklmnpqrstvwxyz"
        Vokale = Vokale.ToArray
        Konso = Konso.ToArray
        Dim rndnb As New Integer

        For i = 0 To Muster.Length - 1
            Dim AktuellerChar As String = Muster(i).ToString
            If AktuellerChar = "c" Then
                rndnb = rnd.Next(0, Konso.Length)
                Ausgabe &= Konso(rndnb).ToString
            ElseIf AktuellerChar = "v" Then
                rndnb = rnd.Next(0, Vokale.Length)
                Ausgabe &= Vokale(rndnb).ToString
            ElseIf AktuellerChar = "n" Then
                Ausgabe &= rnd.Next(0, 10)
            End If
        Next
        Return Ausgabe
    End Function