Nice!

Sweeeeet!

***UPDATE***

If the Word Bank is empty an Exception was thrown. Yes I forgot to test it. lol

        If WordBank.Count > 0 Then
            TxtWordHidden.Text = WordBank(WordNum).ToUpper
        Else
            If MessageBox.Show("There are no words in the Word Bank!" & vbNewLine &
                               "Do you want to add new words now?", "No Words Available",
                               MessageBoxButtons.YesNoCancel, MessageBoxIcon.Exclamation) = DialogResult.Yes Then
                Shell("Notepad.exe " & AppDomain.CurrentDomain.BaseDirectory & "WordBank.txt", AppWinStyle.NormalFocus)
                BtnNewGame.Visible = True
            Else
                Close()
            End If
        End If

Does it error if the text file is missing?

That's a great point Alex. Yes - "FileNotFoundException" which I have now fixed.

        Dim Filename As String = AppDomain.CurrentDomain.BaseDirectory & "WordBank.txt"
        If Not IO.File.Exists(Filename) Then
            IO.File.Create(Filename).Close()
        End If
        Dim objFile As New IO.StreamReader(Filename)

LOL. Learning is so much fun.

I've missed that many times myself, always great when you have the sample data you expect but a pain when you don't.

Also could people put the words in in different ways
Is it
Word1
Word2
Word3

But what if people put
Word1 Word2
Word3
Word4

Yeah, it only works if there is only one word per line. Ideally, a database would probably be a better option.

Presume you've already seen these:

- VisualBasic.NET Tips
- Connect to Access DB

Yeah. Did you know there is a mistake in the code?

Dim con As New OleDb.OleDbConnection

Later in the code ConAN is referred to instead.

Oops, best get that updated.