VB English To Piglatin Translator?

I am making an english to pig latin translator and I cannot quite get this right! For some reason i can always get the first word to translate but the other words jumble together and sometimes repeat themselves.The rules for this program are as follows: To translate an English word into a pig Latin word, place the first letter of the English word (if it is not a vowel) at the end of the English word and add the letters "ay." If the first letter of the English word is a vowel, place it at the end of the word and add "y." Using this method, the word "jump" become "umpjay," the word "the" becomes "hetay" and the word "ace" becomes "ceay". Blanks between words remain blanks.

So far this is what I've got: Public Class Form1 Private Sub btnTran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTran.Click Dim Sentence As String, letter As String, wordI As String, word1 As String, word As Double, wordamount As Double, counter As Integer = 0, current As Double txtOutput.Text = ""

[Code]...