Generate Random Numbers & Letters [ Small Function ]

[MYPE]

Hi
This Morning i was Bored and i wanted to make a Random Numbers and Letters For FUN and Simplicity. Yes i Already Make Some others Functions Generate Random Numbers and Letters But there was all the Time Big ass Functions and Not Simple. Its Takes me around 20 MINs (Its not a lie Like some People doing all the Time)BTW There is it Enjoy

FUNCTION:

Code:

'Note: The  Stuff = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" You Can put Whatever crap in it like Symbols or whatever you want.
Public Function Gennn(ByVal length As Integer)
        Dim charz() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
        Dim RAN As New Random
        Dim STR As String = Nothing
        For INT As Integer = 1 To length
            STR += charz.ElementAt(RAN.Next(charz.Length))

        Next
        TextBox3.Text = STR
        Return STR
    End Function
End Class

USE IT:

Code:

'Note: The "(16)" is the Length of the Generated Strings.
Gennn(16)