Public Function Zufallsstring()
Dim Output As String = ""
Dim focus As New Random
Dim change As Integer
change = focus.Next(11, 13)
For i = 1 To change
Dim generator As New Random
Dim randomValue As Integer
randomValue = 0
randomValue = generator.Next(3, 4) ' Die 3 und 4 kannste Variieren, 1-4 ist groß, klein und Zahlen.
System.Threading.Thread.Sleep(25)
Select Case randomValue
Case 1
randomValue = generator.Next(48, 57)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
Case 2
randomValue = generator.Next(65, 90)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
Case 3
randomValue = generator.Next(97, 122)
Output &= Chr(randomValue)
Application.DoEvents()
randomValue = 0
End Select
Next
Return Output
End Function
' Sirect mag Credits!