Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no - VB

Function isPal(n as integer) As Boolean
  k%=0
  Do while (n>0)
      k%=k%*10+(n mod 10)
      n=n\10
  Loop
  isPal=(n=k%)
End function
Sub Main
    n%=Val(InputBox("Введите число"))
    MsgBox IIF(isPal(n%),"Yes","No")
End Sub