boatn19

half way down i am getting an exception error and can't figure out, mind and eyes are numb....

Public Class MainForm
Private Sub xExitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xExitButton.Click
Me.Close()
End Sub

Private Sub xConvertButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xConvertButton.Click
' displays the pig latin form of a word

Dim originalWord As String
Dim pigLatin As String

originalWord = Me.xWordTextBox.Text

If originalWord.Substring(0, 1).ToUpper Like "[AEIOU]" Then
' if the word begins with a vowel, add "-way" to the end of the word
pigLatin = originalWord & "-way"

Else

Dim isVowelOrY As Boolean
'Dim indexNum As Integer
'Dim word As String

Dim length As Integer

Do
pigLatin = originalWord.Substring(0, 1)
originalWord = originalWord.Remove(0, 1)
length = originalWord.Length
Loop Until originalWord.Substring(0, 1) Like "[AEIOU]"
If originalWord.Substring(0, 1) Like "[AEIOU]" Then
originalWord = originalWord & "ay"
Me.Label1.Text = "This word in pig latin is " & originalWord.ToLower & "."
End If

If Not isVowelOrY Then
' if the word does not contain a vowel or the letter y,
' add "-way" to the end of the word
pigLatin = originalWord & "-way"

Else

' if the word does not begin with a vowel or the letter y, but it contains
' a vowel or the letter y, add a dash to the end of the word, then
' continue moving the first character to the end of the word until
' end of the word

End If

End If

'display pig Latin form of the word
Me.xPigLatinLabel.Text = pigLatin

Me.xWordTextBox.Focus()
End Sub
End Class