Update Module1.vb

System checking added in team making; up to 16 teams can be made.