将任意一个正两位数N的个位数和十位数兑换的VB表达式怎么写？

设，原数是X，结果是Y
if X=int(X) and X<100 and X>9 then
Y=X\10+(X mod 10)*10
msgbox "计算结果为：";Y
else
msgbox "你的数据不是两位正整数！"
endif

Private Sub Command1_Click()
MsgBox StrReverse("45")
End Sub
这里的45 你可以换成任意字符串都可以，StrReverse函数就是用来颠倒字符串的，当然如果你不嫌麻烦也可以用mid截取十位和个位 ，然后颠倒重新组成新的数

(N-INT(N/10))*10+INT(N/10)