Function GenString(ByRef length As Integer) As String
Randomize()
Dim allowableChars As String
allowableChars = "abcdefghijklmnopqrstuvwxyz0123456789" ' Remove or add chars you want
Dim i As Integer
For i = 1 To length
GenString = GenString & Mid$(allowableChars, Int(Rnd() * Len(allowableChars) + 1), 1)
Next
End Function
Textbox1.text = Textbox1.text +"Character here"
Textbox1.text = Textbox1.text - "Character here"

Will be very helpful. I will give credits to whomever's code I use.
I added your msn btw. D: