Среди чисел 1…n найти все такие, запись которых совпадает с последними цифрами их квадрата - VB

Private Sub Command1_Click()
    Dim s As String, i As Long, n As Long, t As String, z As String
    s = ""
    n = CInt(InputBox("Ââåäèòå n"))
    For i = 0 To n
        t = CStr(i)
        z = CStr(i ^ 2)
        If t = Right(z, Len(t)) Then
            s = s + t + "~" + z + vbTab
        End If
    Next
    MsgBox CStr(s)
End Sub