Module Module1

    Sub Main()

        Dim i As Integer
        Dim password As String
        Dim someone As New Random

        password = ""

        For i = 0 To 19
            Dim c As Char
            Dim s As String

            c = ChrW(CInt(someone.Next(33, 126).ToString))

            s = c.ToString
            password = password + s
        Next

        My.Computer.Clipboard.SetText(password)
    End Sub

    'The cake is a lie!
End Module