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