Assignment 6 VB

Finished!