First I created a function to take three digits and turn them into a six digit palindrome:
Public Function palin(numb As Integer) As Long
palin = 100001 * Mid(numb, 1, 1) + 10010 * Mid(numb, 2, 1) + 1100 * Mid(numb, 3, 1)
Then I created a sub with a double loop to start from 170 up to 999 in the outer loop (counter i) and i+1 up to 999 in the inner loop. It printed ou the results any time the difference between the palindromes is less than 60 (practical maximum distance to office).
Public Sub main()
Dim i As Integer
Dim j As Integer
Dim MaxNumb As Integer
MaxNumb = 999
For i = 170 To MaxNumb
For j = i + 1 To MaxNumb
If palin(j) – palin(i) < 60 Then
Debug.Print j, i, palin(j), palin(i), palin(j) – palin(i)
Results are that it is 11 miles from 1999991 to 200002, from 299992 to 300003, etc all the way up to 899998 to 900009. And those are the only results in a reasonable distance to travel in one hour.