Easy password generator

        Randomize()
        Dim Numbers As Byte = (Rnd() * 90) + 10
        Dim Adjectives() As String = {"Good", "New", "First", "Last", "Long", "Great", "Little", "Own", "Other", "Old", "Right", "Big", "High", "Different", "Small", "Large", "Next", "Early", "Young", "Important", "Few", "Public", "Bad", "Same", "Able"}
        Dim Nouns() As String = {"Times", "People", "Years", "Ways", "Days", "Things", "Men", "Worlds", "Lives", "Hands", "Parts", "Children", "Eyes", "Women", "Places", "Works", "Weeks", "Cases", "Points", "Governments", "Companies", "Numbers", "Groups", "Problems", "Facts"}
        Dim EasyPassword As String = Numbers.ToString & Adjectives(Int(Rnd() * Adjectives.Count)) & Nouns(Int(Rnd() * Nouns.Count))