Visual Basic - Abrir Excel con un boton

Como le puedo hacer para que al presionar un boton me abra Excel ó algun otro programa, yo lo estoy haciendo de la siguiente manera:
Dim objExcel as Object
Set objExcel =CreateObject("excel.application")
y tambien lo intente así:
Dim objExcel as Object
Set objExcel =GetObject(, "excel.application")
espero y me puedan ayudar.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
en un boton pon
a=ShellExecute(me.hwnd,"open","laruta de tu archivo","","",1")
espero te sirva

Asi lo hice y funco perfecto....
ojala k te sirva....

Private Sub Command1_Click()

archivo = "c:\miarchivo.xls"
Set xls = CreateObject("excel.Application")
xls.Workbooks.Open archivo
xls.Visible = True
xls.Worksheets(1).Activate

Set xls = Nothing

End Sub

Mira si lo q quieres es crear un archivo nuevo de excel utiliza esto
Public sub command1_click()
dim apexcel as excel.application
dim libro as excel.workbook
dim hoja as excel.worksheet

set apexcel= createobject("Excel.Aplication)
set libro = apexcel.workbooks.add
set hoja= libro.worksheet(1) 'el numero corresponde el numero de hoja en la cual escribiras

apexcel.visible=true
set apexcel=nothing
set libro =nothing
set hoja .......

end sub

Y si lo q quieres es abrir un documento existente utiliza lo siguiente
1.- añade un commond dialog a tu proyecto
public sub commmand1_click()
dim apexcel as excel.application
dim libro as excel.workbook
dim hoja as excel.worksheet

CommonDialog1.Filter = "All Files (*.*)|*.*|Todos los Archivos de Microsoft Excel|*.xls"
' Especifique el filtro predeterminado.
CommonDialog1.FilterIndex = 2
' Presenta el cuadro de diálogo Abrir.
CommonDialog1.ShowOpen
' Llamada al procedimiento para abrir archivo.
ruta = CommonDialog1.FileName.1

set apexcel= createobject("Excel.Aplication)
Set Libro = apexcel.Workbooks.Open(ruta)
set hoja= libro.worksheet.(1)

end sub