Need a 3x3 and a 4x4 grid code

[Shalax1]

This is what I have so far, my goal is to get this to display a randomly chosen 3x3 grid of words from Words.txt, which has 10 words, and then will swap one word of those out, note which one it is, then replace it, the grid will be wiped after 30 seconds.
This is what I have so far

Module Module1
    

    Sub Main()
        Dim Choice As Integer
        Dim fileReader As System.IO.StreamReader
        Dim stringreader As String
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("For easy mode, type 1, for hard mode type 2")
        Console.WriteLine("Easy mode has a 3x3 grid of words, 4x4 for hard")
        Choice = Console.ReadLine()

        Select Case Choice

            Case 1 'Easy Mode
                Console.WriteLine("Hardmode")
                fileReader =
                My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\WordsEdited.txt")
                stringreader = fileReader.ReadLine()
                Console.WriteLine("The first line of the file is " & stringreader)

                Console.Clear() 'Adios, written things

                'Calls up a modified file   fileReader =
                My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\WordsEdited2.txt")
                stringreader = fileReader.ReadLine()
                Console.WriteLine("The first line of the file is " & stringreader)

                Console.ReadLine()
            Case 2 'Hard mode
                Console.WriteLine("Easy Mode")
                fileReader =
              My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\Words.txt")
                stringreader = fileReader.ReadLine()
                Console.WriteLine("The first line of the file is " & stringreader)

                Console.Clear() 'Adios, written things.


                'Calls up a modified file
                fileReader =
            My.Computer.FileSystem.OpenTextFileReader("N:\Controlled Assessment One\Words2.txt")
                stringreader = fileReader.ReadLine()
                Console.WriteLine("The first line of the file is " & stringreader)
            Case Else
                Console.WriteLine("Incorrect Output")
        End Select


        Console.ReadLine()


    End Sub

[Shalax1]

While Not fileReader.EndOfStream
            For x to 16

        End While

Trying this