عوض کردن جای دو عدد

[Iman7228]

سلام دوستان.
می خواستم منو راهنمایی کنید.
من اگه بخوام جای عدد اول و سوم از سمت راست رو عوض کنم باید از چه کدی استفاده کنم؟
مثلا عدد من اینه : 5467894
و می خوام بعد از عوض شدن عدد اول و سوم از سمت راست بشه : 5467498
ممنون میشم راهنمایی کنین.

[vbhamed]

سلام



Dim s$, n, c$

n = 5467894
s = CStr(n)

c = Mid$(s, Len(s) - 2, 1)
Mid$(s, Len(s) - 2, 1) = Right$(s, 1)
Mid$(s, Len(s), 1) = c

n = Val(s)

MsgBox n


يا


Dim s$, n

n = 5467894
s = CStr(n)

s = Left$(s, Len(s) - 3) & _
Right$(s, 1) & _
Mid$(s, Len(s) - 1, 1) & _
Mid$(s, Len(s) - 2, 1)

n = Val(s)

MsgBox n