could someone convert this code to VB.NET?