Function GetRandomWord(ByVal filename As String) As String

      'Open the file
      Try
         filename = "wordlist.txt"
        
         stream = New StreamReader(filename)

         'Checks to see if the file exists and then loads the file
         If File.Exists(filename) Then

            Do While stream.Peek <> -1
               strText = stream.ReadLine()

            Loop


         End If

         'Populates system error message if file doesn't exist
      Catch ex As System.IO.IOException
         MessageBox.Show(ex.Message)


      End Try


      'Read in all the lines into an ArrayList
      Dim words As ArrayList = New ArrayList()
      Dim word As String = Stream.ReadLine()
      While Not word Is Nothing
         words.Add(word)
         word = Stream.ReadLine()
      End While

      'Close the Text file
      stream.Close()

      'Now, randomly choose a word from the word ArrayList
      Dim rndNum As Random = New Random()
      Dim iLine As Integer = rndNum.Next(words.Count)
      Dim selectedWord As String = CStr(words(iLine))
      Return selectedWord