How to use a command button ?

How to use a command button to load a help file.

Thanks

Code:

---

Private Sub Command1_Click()
    App.HelpFile = "Location of your file'"
End Sub

---