Найти числа, запись которых совпадает с последними цифрами их квадрата. VBA

Sub ХвостКвадратаРавенЕгоОснованию()
Const N = 100000
Dim i As Long, z As String
        
    For i = 1 To N
        z = i ^ 2
        If i = Right(z, Len(i)) Then MsgBox i & " ~ " & z
    Next
 
End Sub

If i = Right(z, Len(CStr(i))) Then MsgBox i & " ~ " & z

MsgBox CStr(i) & " ~ " & z

Sub NumTales()
Const N = 10 ^ 6    'максимум для чисел, исследумых на одинаковость "хвостов"
Dim i               'натуральные числа 1..N
Dim k               'количество нулей в конце чисел вида i ^ 2 - i
Dim z               'переменная для i в квадрате
        
        For i = 1 To N
            k = Fix(Log(i) / Log(10)) + 1
            z = i ^ 2
            
                If (z - i) / 10 ^ k = Fix((z - i) / 10 ^ k) Then
                    MsgBox i & "^2 = " & Format(i ^ 2, "### ### ### ###")
                End If
        Next
End Sub

Sub NumTales()
Const N = 10 ^ 6    'максимум для чисел, исследумых на одинаковость "хвостов"
Const M = 2         'показатель степени
Dim i               'натуральные числа 1..N
Dim k As Long       'количество нулей в конце чисел вида i ^ 2 - i
Dim z               'переменная для i в степени M
Dim x               'переменная для (z - i) * 10 ^ -k
        
    For i = 1 To N
        k = Fix(Log(i) / Log(10)) + 1
        z = CDec(i ^ M)             'добавил преобразование в тип Decimal
        x = CDec((z - i) * 10 ^ -k)
        
        If x = Fix(x) And z <> i * 10 ^ k Then
            MsgBox i & "^" & M & " = " & Format(z, "# " & String(k, "#"))
        End If
    Next
End Sub

Option Explicit
 
Sub NumTales()
Const N = 10 ^ 6    'максимум для чисел, исследуемых на автоморфность
Const F = "###,###,###,###,###" 'формат числа для вывода i ^ 2
Dim i               'натуральные числа 1..N
Dim k: k = 10
Dim x               'переменная для "хвоста" (который совпал с основанием)
Dim z               'переменная для i в степени 2 с точностью Decimal
Dim s$, si$         'строки для вывода
Dim d               'переменная для z / k
Dim t:  t = Timer   'таймер
 
For i = 1 To N
    z = CDec(i * i)             'срабатывает быстрее, чем z = CDec(i ^ 2)
    If i = k Then k = k * 10
'    x = z Mod k                        'работает с числами Long (если Basic)
    d = z / k:  x = k * (d - Fix(d))    'работает с числами и более чем Long
    
    If x = i Then
        si = vbTab & vbTab & i & " ^ " & 2 & " = " & Format(z, F) & vbCr & _
        "i = " & i & "; время:" & String(5, vbTab) & Timer - t & " с." & vbCr
        s = s & si
    End If
Next
            MsgBox s
    ActiveDocument.Undo
    Selection.TypeText s & Timer - t & " (секунды)"    'печать в документ Word
End Sub

Sub NumBigTales()   '...12890625 и ...87109376 — окончания автоморфных чисел
Const N = 10 ^ 14   'максимум для чисел, исследуемых на автоморфность
Dim i               'натуральные числа 1..N
Dim k: k = 8        'количество цифр 1-го искомого числа (фактически lg(i) + 1)
Dim level: level = 10 ^ k 'число, начиная с которого разрядность i стала больше
Dim x               'переменная для "хвоста" (который совпал с основанием)
Dim z               'переменная для i в степени 2 с точностью Decimal
Dim si              'строка для вывода
Dim d               'переменная для z / 10 ^ k
Dim t:  t = Timer   'таймер
 
    For i = CDec(87109376) To N Step 10 ^ (k - 1)
        
        z = CDec(i * i)
        level = 10 ^ k
        If i >= level Then k = k + 1
        d = z / level
        x = (d - Fix(d)) * level 'работает с числами и более длинными чем Long
        
        If x = i Then si = si & String(3, vbTab) & Format(i, "#,###") & _
            " ^ " & 2 & " = " & Format(z, "#,###") & vbCr & _
            "i = " & i & "; время, с:" & String(8, vbTab) & Timer - t & vbCr
            
    Next
            MsgBox si
End Sub

Sub Task()
 
    On Error GoTo Exi
    
    For i& = 1 To 2 ^ 16
        Si$ = CStr(i&)
        Sq$ = CStr(i& * i&)
        l% = Len(Si$)
        If Right$(Sq$, l%) = Si$ Then Debug.Print Si$; " "; Sq$
    Next i&
    
Exi:
 
End Sub