مشکل در تابع Replace

[omid93gh]

سلام دوستان

پیرو سوال قبلیم در این سات که کسی هم پاسخ نداد! سوالی بهتر دارم :

من میخوام در برنامه ام از تابع Replace استفاده کنم به این صورت : ("text2.text = Replace(text1.text, "s" , "1)

همانطور که میدانید با عملکرد این خط دستوری در تکست باکس 1 اگر حرف s وجود داشته باشد به 1 تبدیل خواهد شد

ولی من میخوام این کار را برای 26 حرف الفبای لاتین به کار ببرم که اگر 26 خط دستوری مشابه بالا داشته باشم. برنامه فقط آخرین خط دستوری را اعمال می کند .

مشکل از کجاست ؟ آیا من باید این تابع را در حلقه های Do و یا For قرار دهم ؟ چگونه ؟

ممنون میشم راهنمایی بفرمایین

[www.pc3enter.tk]

ببین مشکلت در این برنامه حل میشه
for a=1 to 26
text1.text= replace (text1.text, chr (96+a)" , a)
next a

برای معکوس کردنش هم میتونی از این استفاده کنی


for a=26 to 1 step - 1
text1.text= replace (text1.text, a , chr(123-a) )
next a