تولید رشته به صورت Random ؟؟؟

سلام دوستان
آیاتابعی هست که تعداد کاراکترها رو بگیره،
و به صورت Random رشته تولید کنه؟؟
تشکر
:لبخندساده:

درست نفهمیدم منظورتون چیه ولی این طور که پیداست کاری نداره

Text1.Text = ""

Randomize Timer

tool = InputBox("toole reshte?")

For i = 1 To tool

1

a = Fix(Rnd * 90)

If a < 65 Or a > 90 Then GoTo 1

Text1.Text = Text1.Text & Chr(a)

Next i

من هم تا حالا از این روشی که دوستمان گفته خیلی استفاده کردم و جواب هم گرفتم.
اما با استفاده از goto کاملا مخالفم.باید یاد بگیریم که از کد هایی که باعث دردسر می شن دیگه استفاده نکنی(باور کنید که اینطوری خیلی بهتر هست)

senator_aka درست میگه ، از شکل ساخت یافته تابع Danial_Yousefi عزیز بصورت زیر استفاده کنید :

Text1.Text = ""

Randomize(Timer)

tool = InputBox("toole reshte?")

For i = 1 To tool

Do

a = Fix(Rnd() * 90)

Loop a < 65 Or a > 90

Text1.Text = Text1.Text & Chr(a)

Next i

منم نظرم با شما یکی ولی برنامه هول هولکی نوشته شده:خجالت: