مشکل در کد کردن رشته

[tootro20]

سلام.
ببخشید مشکل سورس من چیه؟!
اعداد رو کد اسکیشون رو تغییر میده اما ماله حروف هارو نه!!

Private Sub Command1_Click()
For y = 1 To Len("iran")
x = Asc(Mid("iran", y, 1))
Print Chr(x)
Next
End Sub

[سید حمید حق پرست]

سلام علیکم
من تست که کردم کد اسکی حروفش مشکلی نداشت عزیز! شما چه مشکلی دارید؟ عکسی یا توضیحی بدید.
موفق باشید.

یا علی (ع)

[tootro20]

سلام
معذرت
کد کامل نبود اینه کد:


Dim x As Variant
Private Sub Command1_Click()
For y = 1 To Len("iran")
x = Mid("iran", y, 1)
Print Chr(Asc(x + 1))
Next
End Sub

می خوام به هرکدوم از کدهای اسکی که mid می کنه اضافه کنه...
ممنون برادر حمید ♥

[سید حمید حق پرست]

سلام علیکم
بصورت زیر بنویسید :
Dim x As Variant
Private Sub Command1_Click()
For y = 1 To Len("iran")
x = Mid("iran", y, 1)
Print Chr(Asc(x) + 1)
Next
موفق باشید.

یا علی (ع)