从VBA到VB的时间序列

Question

如何将VBA（用于Excel）的代码转换为VB（Visual Studio 2008）的代码？

Sub timer()
 Application.OnTime TimeSerial(16, 52, 0), "Run"
End Sub

Sub Run()
MsgBox ("Hello World!!!")
End Sub