Función Palíndromo, iterativo Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Public Class exercise130
    Public Shared Function IsPalindrome(ByVal text As String) As Boolean
        text = text.ToUpper()
        Dim begin As Integer = 0
        Dim [end] As Integer = text.Length - 1

        For begin = 0 To [end] - 1
            If text(begin) <> text([end]) Then Return False
            [end] -= 1
        Next

        Return True
    End Function

    Public Shared Sub Main()
        Console.WriteLine(IsPalindrome("radar"))
        Console.WriteLine(IsPalindrome("ratas"))
    End Sub
End Class