Public Class Piglatin

   
    Private Sub btntranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntranslate.Click
        Dim word, letter As String
        word = txtinput.Text
        letter = word.Substring(0, 1)
        If "aeiou".IndexOf(letter) <> -1 Then
            txtoutput.Text = "The word in pig latin is " + word + "way."
        Else
            txtoutput.Text = "The word in pig latin is " + word.Substring(1) + letter + "ay."
        End If
    End Sub