Completed a46v VB.NET