VB code for the application