I apologise if I'm being stupid, but are you sure the file is named zipper.exe and not zipper.bat.
Private Sub Command1_Click()
Dim path As String
Dim runExe As Double
path = "C:\Program Files\C&F Customer Management\2005_Working_Version\"
runExe = Shell(path & "Zipper.exe", vbMaximizedFocus)
ErrorHandling:
MsgBox Error.Description & vbCrLf & Error.Number
End Sub
cd \Program files\winzip
wzzip "C:\Program Files\C&F Customer Management\2005_Working_Version\Database.zip" "C:\Program Files\C&F Customer Management\2005_Working_Version\C&F_EventsV6.mdb" "C:\Program Files\C&F Customer Management\2005_Working_Version\C&F Promotions - Event_Maps\*.*"