Public Sub Main()
SendKeys Chr(vbKeyReturn)
End Sub