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