[Code] Random Text Generator **Code Shared By mjridoy5**

Function RanDomString(Length As Integer) As String
Dim i As Integer
Do While i < Length
Randomize
Select Case IIf(i = 0, Int(1 * Rnd + 1), Int(2 * Rnd))
Case 0: RanDomString = RanDomString & Chr(Int(10 * Rnd + 48))
Case 1: RanDomString = RanDomString & Chr(Int(26 * Rnd + 65))
End Select
i = i + 1
Loop
End Function

Private Sub Form_Load()
Debug.Print RanDomString(9)
Debug.Print RanDomString(9)
End Sub

Private Sub Command1_Click()
Text1 = RanDomString(10) '10=Length
End Sub