Can someone help?

The following doesn't work. It should open a Help.Doc when the application user clicks on the F1 or Help button.


Private Sub subaidemenu_Click()
Dim helpfunc As Variant

On Error GoTo errormsg
helpfunc = Shell("C:\Program Files\MSOffice\Office\winword.exe", 3)
SendKeys "%FOC:\VIDEOCON\HELP.doc~", True
AppActivate helpfunc, True
GoTo fin

errormsg:
MsgBox "The user guide is not found. / Le guide de l'usager est introuvable.", , "ERREUR!"
fin:
End Sub