What is the Sub Routine to Start Excel and Open a File?

Question:

When creating a button, if I go to the Script for "onbuttonclick", what do I need to add? 

Answer: 

Sub OpenFile(strFile)
  Dim objShell

  Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute strFile, "", "", "open", 1
  Set objShell = Nothing
End Sub
OpenFile "C:1!.xls"