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