[VB.NET] Junk Code Generator

I know it's written sloppy. It was intended for personal use.

Pass.vb:

public Class Password

   Private Const PASS_UPPERS As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Private Const PASS_LOWERS As String = "abcdefghijklmnopqrstuvwxyz"
   Private Const PASS_NUMBERS As String = "0123456789"
   Private Const PASS_SPECIALS As String = "~`!@#$%^&*()_+=-{[}]|;:'<,>.?"

   Public Function GeneratePassword(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal passwordLength As Integer) As String

       Dim strCharacters As String
       Dim strNewPassword As String
       Dim p As Integer

       If Uppers = True Then
           strCharacters = strCharacters & PASS_UPPERS
       End If
       If Lowers = True Then
           strCharacters = strCharacters & PASS_LOWERS
       End If
       If Numbers = True Then
           strCharacters = strCharacters & PASS_NUMBERS
       End If
       If Specials = True Then
           strCharacters = strCharacters & PASS_SPECIALS
       End If

       Randomize()

       For p = 0 To (passwordLength - 1)
           strNewPassword = strNewPassword + Mid(strCharacters, Len(strCharacters) * Rnd() + 1, 1)
       Next

       GeneratePassword = strNewPassword

   End Function

End Class

Function GenerateJunk(ByVal ammount As Integer) As String

       If ammount = 0 Then
           ammount = 1
       End If

       Dim out As String = "Module " & s(20)
       Dim y As Integer = 0

       Do Until y = ammount

           Rnd()
           Dim a As Integer = n(3, 1)

           Dim e As String = s(60)
           If a = 1 Then
               out += vbNewLine & vbNewLine & "Public Function " & s(124) & "(" & s(16) & " as string)as string" & vbNewLine

               out += "on error goto " & e & vbNewLine
           Else
               out += vbNewLine & "Public Sub " & s(n(50, 8)) & "(" & s(49) & " as string)" & vbNewLine
           End If

           Dim i As Integer = 0

           Dim limit As Integer = n(30, 10)

           Do Until i = limit
               Rnd()
               Dim type As Integer = n(5, 0)


               If type = 1 Then
                   out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
                   i += 1
               ElseIf type = 2 Then
                   out += "msgbox(" & Chr(34) & s(n(100, 276)) & Chr(34) & ")" & vbNewLine
                   i += 1
               ElseIf type = 3 Then
                   Rnd()
                   out += "Dim " & s(56) & " as integer = " & n(999999, 100000) & vbNewLine
                   i += 1
               Else
                   out += "dim " & s(n(10, 60)) & " as integer = " & n(100000, 9999999) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & vbNewLine
               End If



           Loop
           If a = 1 Then
               out += e & ":" & vbNewLine

               Dim h As Integer = 0
               Dim hl As Integer = n(10, 3)
               Do Until h = hl

                   Dim type As Integer = n(4, 0)


                   If type = 1 Then
                       out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
                       i += 1
                   ElseIf type > 1 Then
                       out += "msgbox(" & Chr(34) & s(n(100, 276)) & Chr(34) & ")" & vbNewLine
                       i += 1
                       out += "If " & n(100000, 9999999) & " > " & n(214124, 1243145) & " then" & vbNewLine

                       out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
                       out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
                       out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
                       out += "End if" & vbNewLine

                   Else
                       Rnd()
                       out += "Dim " & s(56) & " as integer = " & n(999999, 100000) & vbNewLine
                       i += 1
                   End If
                   h += 1
               Loop


               out += "End Function" & vbNewLine & vbNewLine

           Else
               out += "End Sub" & vbNewLine & vbNewLine
           End If
           y += 1
       Loop
       out += "End Module"

       Return out
   End Function

 Function s(ByVal len As String) As String
       Dim x As New Password
       Return x.GeneratePassword(True, True, False, False, len)
   End Function

   Public Function n(ByVal MaxNumber As Integer, _
   Optional ByVal MinNumber As Integer = 0) As Integer
       Rnd()
       Threading.Thread.Sleep(5)
       'initialize random number generator
       Dim r As New Random(System.DateTime.Now.Millisecond)

       'if passed incorrect arguments, swap them
       'can also throw exception or return 0

       If MinNumber > MaxNumber Then
           Dim t As Integer = MinNumber
           MinNumber = MaxNumber
           MaxNumber = t
       End If

       Return r.Next(MinNumber, MaxNumber)

   End Function

Usage:

Sub Gen(ByVal a As String)
       TextBox1.Text = GenerateJunk(a)
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim x As New Threading.Thread(AddressOf Gen)
       x.Start(TrackBar1.Value) ' TrackBar1.Value = How much code to generate. 1 is mininum, 20+ is a LOT!
   End Sub

Enjoy!