将代码从VBA转换到VB.NET