مشکل در چاپ تولید اعداد تصادفی براساس کد اسکی

[tootro20]

سلام.
معذرت ببخشید می خوام یه برنامه بنویسم که اعداد و حروف و ... تصادفی تولید کنه که متاسفانه فقط اعداد رو تولید نمی کنه!!
مشکل بنظرتون از چیه؟!
کد:


Dim txtdec, txtchar As Variant
Private Sub Command1_Click()
For X = 1 To 10
Call Randomize
txtdec = Int(32 * Rnd(0.5)) + 94
txtchar = txtchar & Chr(txtdec)
Print txtchar
Next
txtchar = ""
End Sub

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

سلام علیکم
بفرمایید :
Dim StrChar As String, StrText As String

Private Sub Command1_Click()
StrChar = "0123456789abcdefghijklmnopqrstuvwxyz"
Randomize
For i = 1 To 7
StrText = StrText & Mid(StrChar, Int((Len(StrChar) * Rnd) + 1), 1)
Next
Text1.Text = StrText
StrText = ""
End Sub
موفق باشید.

یا علی (ع)