If KeyCode = vbKeyReturn Then
     SendKeys "{TAB}"
     'CreateObject("WScript.Shell").SendKeys "{TAB}", True
  End If