Added a VB Test Harness