Have an App cause another app to save

Is there a way for me to make another app do a file save or save as.

I wanted to create an application that was nothing more that a button that would cause Quark Express 4.11 to do a save. I am doing other things first and they are all working but I can't seem to get this to work.

[
Dim ES As Long
Dim XP As Long
Dim EditDPS As Long
XP = FindWindow("QuarkXPress", vbNullString)
EditDPS = FindWindow("afx:400000:b:10015:6:5a02f1", vbNullString)

Call ShowWindow(EditDPS, SW_MAXIMIZE)
Call ShowWindow(XP, SW_MAXIMIZE)
ES = FindWindowEx(XP, 0, "#32768", vbNullString)
]

Thanks