sono troppo stanco per vedere se il tuo funziona, io personalmente l'avrei fatto cosi:
VB Programming
Public Class frm_main
Function RovesciaParola(ByVal parola As String) As String
Dim stringaRovescia As String = ""
For I = parola.Length To 1 Step -1
stringaRovescia &= Mid(parola, I, 1)
Next
Return stringaRovescia
End Function
Private Sub btn_rovescia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_rovescia.Click
Dim parole As String() = txt_dritta.Text.Split(" ")
txt_rovesciata.Clear()
For Each parola As String In parole
txt_rovesciata.Text &= RovesciaParola(parola) & " "
Next
End Sub
End Class
questo codice ha un bug di sicuro, alla fine della frase rovesciata ci mette uno spazio di troppo, ma lascio a te il passatempo di rimuoverlo