TimeSerial от 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