a=right(str(i),len(str(i))-1) '也可以直接輸入字符串
dim f as boolean
dim i as integer
f=true
for i=1 to len(a)\2
if mid(a,i,1)<>mid(a,len(a)-i+1,1) then f=false
next i
if f=true then msgbox "Yes" else msgbox "No"