PDA PigLatin application

[krazykrisi]

I want to make a PDA application that converts english to pig latin. this is what i have but I am getting errors. Can anyone help me?

Private Sub cmdEngToPigLatin_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdEngToPigLatin.Click
        Dim s As Object
        Dim Strings_Renamed As Object
 
        Strings_Renamed = Split(txtInput.Text, " ")
        For s = 0 To UBound(Strings_Renamed)
            Strings_Renamed(s) = VB.Right(Strings_Renamed(s), Len(Strings_Renamed(s)) - 1) & VB.Left(Strings_Renamed(s), 1) & "ay"
        Next
 
        MessageBox.Show(Replace(Join(Strings_Renamed, " "), vbCrLf, ""), "Pig Latin")
        txtInput.Text = ""
        txtInput.Focus()
    End Sub