Assignment4 VB, update