Algoritmos - Obtener capicuas de un rango de numeros con VB.NET

Bueno, siempre hay formas de llegar a un resultado, en la web hay múltiples algoritmos de programación para determinar si un número es capicúa.
En esta ocasión les dejo un algoritmo simple para obtener todos los números capicuas dentro de un rango de números determinado.

    Sub Main()

        'capicua
        Dim Start As Integer = 999
        Dim Limit As Integer = 10000
        For i As Integer = Start To Limit
            Dim s As String = i
            Dim IsCorrect As Boolean = True
            For j As Integer = 0 To (s.Length / 2) - 1
                If s(j) <> s((s.Length - 1) - j) Then
                    IsCorrect = False
                    Exit For
                End If
            Next
            If IsCorrect Then Console.WriteLine(s)

        Next
        Console.ReadKey()

    End Sub

Espero que les sea de utilidad