Заполнение строкового массива случайными буквами - Visual Basic .NET

Module Module1
    'ТОЛЬКО ПОД ТЕКУЩИЕ ТРЕБОВАНИЯ
    Sub Main()
        Dim charsG As String = "аеийоуэюя"
        Dim charsS As String = "бвгджзклмнпрстфхцчшщ"
        Dim k1, k2 As Integer
        Dim rand As New Random()
        Dim tmpStr As String
 
        Dim arr(rand.Next(3) + 4) As String
 
        k1 = Math.Ceiling(arr.Length \ 2) ' по логике получается, что приоритет на большее числов элементов имеют согласные из диапазона 4-7
        k2 = arr.Length - k1
 
        'последовательно заполняем гласными
        For i As Integer = 0 To k1 - 1
            Do
                tmpStr = charsG(rand.Next(charsG.Length))
            Loop While arr.Contains(tmpStr)
            arr(i) = tmpStr
        Next
 
        'далее последовательно заполняем согласными
        For i As Integer = k1 To arr.GetUpperBound(0)
            Do
                tmpStr = charsS(rand.Next(charsS.Length))
            Loop While arr.Contains(tmpStr)
            arr(i) = tmpStr
        Next
 
        Dim ri As Integer
 
        'перемешиваем массив
        For i As Integer = 0 To arr.GetUpperBound(0)
            ri = rand.Next(arr.Length)
            tmpStr = arr(ri)
            arr(ri) = arr(i)
            arr(i) = tmpStr
        Next
 
        Console.WriteLine("Результат: " & String.Join(String.Empty, arr))
        Console.WriteLine("k1: " & k1.ToString)
        Console.WriteLine("k2: " & k2.ToString)
 
        Console.ReadLine()
 
    End Sub
 
End Module