Sub Test()

GoToLine:
MsgBox "Hello World"
GoTo GoToLine

End Sub ' This Sub will never end!!!