Closing MS Project 2000 MSGBOX from VB6

I am trying to close a message box within MS PROJECT 2000 from VB6 using sendkeys. Automation fails when the sendkeys does not close a msgbox in the opened File:
objRS.MoveFirst
Do Until objRS.EOF
strProjectName = strProjectDSN & Trim(objRS(“PROJ_NAME”))
DoEvents
objProject.DisplayAlerts = False
objProject.FileOpen (strProjectName)
SendKeys “{ENTER}”
If objProject.Projects.Item(1).ReadOnly Then
objProject.FileClose
GoTo EndofLoop
End If
I know that I am missing something