VB Implementation of my Class Assembly