Беды с кодом игры Баше

Module Module1
    Sub Main()
        Dim z As String = "###############################################################################################################################################################################################
            И        И   ГГГГГГГ     РРРРРРР         А              БББББББ         А        Ш   Ш   Ш   ЕЕЕЕЕЕ
            И       ИИ   Г           Р     Р       А   А            Б             А    А     Ш   Ш   Ш   Е
            И    И   И   Г           РРРРР        ААААААА           БББББББ      АААААААА    Ш   Ш   Ш   ЕЕЕЕЕЕ   
            И И      И   Г           Р           А       А          Б     Б      А      А    Ш   Ш   Ш   Е
            И        И   Г           Р          А         А         БББББББ      А      А    ШШШШШШШШШ   ЕЕЕЕЕЕ  
#################################################################################################################################################################################"
 
        Console.WindowWidth = 110
        Console.WindowHeight = 31
        Console.BackgroundColor = ConsoleColor.Magenta
        Console.ForegroundColor = ConsoleColor.White
        Dim t As Integer
        Dim o As String =
    "                                     1    -      Играть !                                                             
                                          2    -      Правила!                                                                                                                                                                                                                                                                                                  
                                          3    -      Выход  !                                                             "
        Dim rr As String =
            "Баше — математическая игра, в которой два игрока из кучки, содержащей первоначально N предметов, по очереди берут не менее одного и не более М предметов. Проигравшим считается тот, кому нечего брать. Классическая игра подразумевает N=15 и взятие не менее 1 и не более 3 предметов за один раз. Оптимальная стратегия для первого игрока в этом случае заключается во взятии 3 предметов первым ходом и дополнении ходов противника до 4 в последующих ходах. В обобщённой игре Баше — можно брать от 1 до M предметов — оптимальную стратегию можно выразить так: Бери столько предметов, чтобы после твоего хода количество предметов было кратно (M+1). Можно также рассмотреть мизерный вариант игры Баше: проигравшим считается тот, кто возьмет последний предмет"
 
        Dim zz() As Char = z.ToCharArray
        Dim yy() As Char = o.ToCharArray
        Dim ww() As Char = rr.ToCharArray
        Dim rd As New Random
        Dim x As Integer
        Dim aa As Integer
 
        For i = 0 To zz.Length - 1
            Console.Write(zz(i))
            x = 1
            Threading.Thread.Sleep(1)
        Next
        Console.ReadKey()
 
        Console.WriteLine(" нажмите 1 чтобы продолжить")
        t = Console.ReadLine
        If t <> 1 Then
            Console.WriteLine(" нажмите 1 чтобы продолжить")
        Else
            Console.WriteLine(" ок")
            Console.Clear()
            Console.WriteLine(o)
                Threading.Thread.Sleep(1)
            aa = Console.ReadLine
            If aa = 2 Then
                For i = 0 To ww.Length
                    Console.WriteLine(ww(i))
                    x = 1
                    Threading.Thread.Sleep(1)
                Next
            ElseIf aa = 1 Then
                Console.WriteLine(" Играем")
 
            ElseIf aa = 3 Then
                Console.WriteLine(" Нажми Enter для выхода")
            Else
                Console.WriteLine(" выбери цифру")
            End If
 
        End If
 
        Console.ReadKey()
    End Sub
End Module

Console.Clear()

Console.Write(ww(i)) ' Console.WriteLine(ww(i))

Dim rnd As New Random()
Dim rnd1 As Integer = rnd.Next(5)'0 - 4
Dim rnd2 As Integer = rnd.Next(1,5)'1 - 4