Bueno, modificando un poco el código, obtengo lo mismo con lo siguiente (solo he copiado una parte del code, para no hacer todo mas largo):
'hwnd = GetActiveWindow()
'If (hwnd = 0) Then hwnd = GetForegroundWindow()
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, App.Path)
SetForegroundWindow hwnd
SendKeys "{F4}", True
SendKeys "/" + CStr(App.EXEName) + "{ENTER}", True
Exit Sub
Este code funciona en Win 7 x64, pero no en XP. Para que funcione en XP hay que quitarle el string "/" al SendKeys.
Creo que esto es lo que quieres hacer, no?