Spelling Game - Checking Text File for String

Option Explicit On<br />
Imports System.IO<br />
Module Example<br />
    Dim CurrentFileWriter As StreamWriter<br />
    Dim CurrentFileReader As StreamReader<br />
    Sub Main()<br />
        Dim stream As New IO.StreamWriter("C:\Users\Conor\Documents\Visual Studio 2010\Spelling Game\Spelling Game\bin\Debug\Answers.txt", False)<br />
        stream.WriteLine("")<br />
        stream.Close()<br />
        Dim FileName, Answers As String<br />
        FileName = "C:\Users\Conor\Documents\Visual Studio 2010\Spelling Game\Spelling Game\bin\Debug\Answers.txt"<br />
        CurrentFileWriter = New StreamWriter(FileName)<br />
        Console.WriteLine("Please Enter this Word:")<br />
        Call WordSpell()<br />
        Call Countdown()<br />
        Answers = Console.ReadLine<br />
        CurrentFileWriter.WriteLine(Answers)<br />
        CurrentFileWriter.Close()<br />
        Console.WriteLine("Checking Answer...")<br />
        For Each FileName As String In IO.File.ReadLines(FileName)<br />
            If FileName.Contains(Answers) Then<br />
                Console.WriteLine("Well Done!")<br />
            Else<br />
                Console.WriteLine("Unlucky Try Again!")<br />
<br />
            End If<br />
    End Sub<br />
    Sub Countdown()<br />
        Threading.Thread.Sleep(1000)<br />
        Console.WriteLine("5")<br />
        Threading.Thread.Sleep(1000)<br />
        Console.WriteLine("4")<br />
        Threading.Thread.Sleep(1000)<br />
        Console.WriteLine("3")<br />
        Threading.Thread.Sleep(1000)<br />
        Console.WriteLine("2")<br />
        Threading.Thread.Sleep(1000)<br />
        Console.WriteLine("1")<br />
        Threading.Thread.Sleep(1000)<br />
    End Sub<br />
    Sub WordSpell()<br />
        Dim rnd As New Random()<br />
        Dim Words() As String = {"accommodate", "chauffeur", "definitely", "fluorescent", "pharaoh",<br />
                                       "unfortunately", "immediately", "ecstasy", "assassination", "environment", "completely"}<br />
        Dim WordIndex As Integer = rnd.Next(Words.Length)<br />
        Console.WriteLine("{0}", Words(WordIndex))<br />
    End Sub<br />
End Module