Added a unit test in VB.NET