Определить для каждого элемента массива, является ли его число палиндромом

Public Class Form1
    Dim s(255), s_c As String
    Dim i, j, k As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        s_c = "         "
        s(0) = "123456789"
        s(1) = "777777777"
        s(2) = "123404321"
        For Me.i = 0 To 2
            s_c = Mid$(s(i), Len(s(i)), 1)
            MsgBox(s(i))
            'Формирование перевернутой (транспонированной) строки
            For Me.j = Len(s(i)) - 1 To 1 Step -1
                s_c = s_c & Mid$(s(i), j, 1)
            Next
            'Проверка на палиндром
            k = 0
            For Me.j = 1 To Len(s(i))
                If Not (Mid$(s(i), j, 1) = Mid$(s_c, j, 1)) Then
                    k = k + 1
                End If
            Next
            If k = 0 Then
                MsgBox(s(i) & " - палиндром")
            End If
        Next
    End Sub
End Class

Dim str() As String = {"12321", "123321", "123455", "34678809", "23032"}
        For Each c() As Char In str
            Dim reversed() As Char = c.AsEnumerable.Reverse.ToArray()
            If reversed = c Then
                MsgBox(String.Join("", reversed) & "  Эта строка является палиндромом")
            End If
        Next

        Dim str() As String = {"12321", "123321", "123455", "34678809", "23032"}
        Dim ispal = Function(s As String) s.Zip(s.Reverse, Function(c1, c2) c1 = c2).All(Function(b) b)
        MsgBox("Палиндромы: " & String.Join(",", str.Where(ispal)))

Function IsPalindrom(ByVal Palindrom As String) As Boolean
    Return Palindrom.Where(Function(c, i) c <> Palindrom.Chars(Palindrom.Length - i - 1)).Take(1).Count = 0
End Function
 
Sub Main()
    Dim Palindroms As String() = {"11 11", "55355", "123"}
    For Each s As String In Palindroms
        If IsPalindrom(s) Then
            Console.WriteLine("{0} палиндром", s)
        Else
            Console.WriteLine("{0} не палиндром", s)
        End If
    Next
End Sub