Imports System
Imports System.Runtime.InteropServices
Imports System.Math

Module Module1
    Dim strNumberWork As String
    Dim dblNumberWork As Double
    Dim strDigitWork As String
    Dim dblNumericPlace As Double
    Dim strNumericPlace As String
    Dim dblIntervalCount As Double
    Dim dblTotalCount As Double
    Dim dblSubtract3 As Double
    Dim dblSubtract1 As Double
    Dim dblSubtract2 As Double
    Dim dblRandomNumber As Double
    Dim dblTensWorkarea As Double
    Dim strTensWorkarea As String
    Dim dblRightmostDigit As Double
    Dim strRightmostDigit As String
    Dim strEndFlag As String
    Dim dblBeginNumber As Double
    Sub Main()
        Randomize()
        dblIntervalCount = 0
        dblTotalCount = 0
        strEndFlag = "X"
        dblBeginNumber = 0
        While ((dblBeginNumber = 0) Or _
        (dblBeginNumber > 9999999999))
            Console.WriteLine("Where shall we begin? Please enter a phone number")
            dblBeginNumber = Int(Console.ReadLine())
        End While
        For Index1 As Double = dblBeginNumber To 9999999999
            dblRandomNumber = Index1
            ' Bypass the number Tristan already found.
            If dblRandomNumber = 2199999978 Then
                dblRandomNumber += 1
            End If
            dblNumericPlace = 10000000000
            dblNumericPlace += dblRandomNumber
            strNumericPlace = Str(dblNumericPlace)
            strDigitWork = strNumericPlace.Substring(2, 1)
            dblNumberWork = (10 ^ 0) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(3, 1)
            dblNumberWork += (10 ^ 1) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(4, 1)
            dblNumberWork += (10 ^ 2) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(5, 1)
            dblNumberWork += (10 ^ 3) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(6, 1)
            dblNumberWork += (10 ^ 4) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(7, 1)
            dblNumberWork += (10 ^ 5) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(8, 1)
            dblNumberWork += (10 ^ 6) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(9, 1)
            dblNumberWork += (10 ^ 7) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(10, 1)
            dblNumberWork += (10 ^ 8) * Int(strDigitWork)
            strDigitWork = strNumericPlace.Substring(11, 1)
            dblNumberWork += (10 ^ 9) * Int(strDigitWork)
            dblIntervalCount += 1
            dblTotalCount += 1
            If dblTotalCount = 1 Then
                Console.WriteLine("Beginning with " & _
                 Str(dblRandomNumber) & " " & Str(dblNumberWork))
            End If
            If dblIntervalCount > 9999999 Then
                dblIntervalCount = 0
                Console.WriteLine("So far we have examined " & _
                  Str(dblTotalCount) & " phone numbers")
                Console.WriteLine("The last phone number we considered, " & _
                "and its reverse, were: ")
                Console.WriteLine(Str(dblRandomNumber) & _
                " " & Str(dblNumberWork))
            End If
            If dblNumberWork >= dblRandomNumber Then
                dblSubtract1 = dblNumberWork
                dblSubtract2 = dblRandomNumber
            Else
                dblSubtract1 = dblRandomNumber
                dblSubtract2 = dblNumberWork
            End If
            dblTensWorkarea = 10000000000
            dblTensWorkarea += dblSubtract1
            strTensWorkarea = Str(dblTensWorkarea)
            strRightmostDigit = strTensWorkarea.Substring(11, 1)
            dblRightmostDigit = Int(strRightmostDigit)
            If (dblSubtract1 <> dblSubtract2) And _
              (dblRightmostDigit <> 0) Then
                While dblSubtract1 > 0
                    dblSubtract1 -= dblSubtract2
                End While
                If dblSubtract1 = 0 Then
                    strEndFlag = "0"
                    Console.WriteLine("  ")
                    Console.WriteLine("GOT A HIT !!!!!!!")
                    Console.WriteLine("HERE THEY ARE: " & _
                    Str(dblRandomNumber) & " " & _
                    Str(dblNumberWork))
                    While (strEndFlag <> "N" And strEndFlag <> "Y")
                        Console.WriteLine("  ")
                        Console.WriteLine("Do you wish to continue ? Y/N")
                        strEndFlag = UCase(Console.ReadLine())
                    End While
                End If
            End If
            If strEndFlag = "N" Then
                Exit For
            End If
        Next Index1
        Console.WriteLine("  ")
        Console.WriteLine("Please Press Enter to End Program")
        Console.ReadLine()
    End Sub
End Module