ProjectEuler_4 -TizzyT

Module LargestPalindrome 'My solution to Project Euler Problem 4
    Sub Main()
        Dim R As Integer = 0
        For i = 100 To 999
            For n = 100 To 999
                Dim D As Integer = i * n
                Dim digits() As Char = D.ToString.ToCharArray
                If digits.SequenceEqual(digits.Reverse) AndAlso D > R Then R = D
            Next
        Next
        Console.WriteLine(R)
    End Sub
End Module