Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата. язык программирования vba

Sub aaa()
    n = InputBox("Введите число")
    d = (CInt(Right(n, 1))) ^ 2 Mod 10
    MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub