Visual Basic - Abrir Excel con VB

Hola Flota
Tego un libro de Excel y lo quiero abrir mediante un botón que esta situado en una aplicación de VB, la pregunta es ¿Cual seria es codigo para abrir este libro de excel? La Intrucción Shell solo sirve para abrir archivos ejecutables y genera un error al intentar de utilizarla con otra extención.
Saludos y gracias

' Colocá un CommandButton en el Form

Private Sub Command1_Click()
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
' Abra el fichero Excel
' Sustituya "c:\MiDirectorio\Libro1.xls" por su fichero Excel
Set xlw = xl.Workbooks.Open("c:\MiDirectorio\Libro1.xls")
' Sustituí "Hoja1" por la hoja de la que quieras extraer datos.
xlw.Sheets("Hoja1").Select
' Traer el valor de la celda (2,3) de la hoja.
MsgBox xlw.Application.Cells(2, 3).Value
' Cierre la hoja sin salvar los cambios
' Si queres guardar los cambios sustituí False por True
xlw.Close False
Set xlw = Nothing ' Liberás el Objeto
Set xl = Nothing ' Liberás el Objeto
End Sub

'Colocá un CommandButton en el Form.

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
xlWS.Cells(2, 2).Value = "Hola"
xlWS.Cells(1, 3).Value = "Mundo"
' Va a guardar esto en el fichero excel llamado prueba.xls
xlWS.SaveAS "c:\prueba.xls"
xlApp.Quit
Set xlWS = Nothing 'Libero la memroia de los Objetos
Set xlWB = Nothing 'Libero la memroia de los Objetos
Set xlApp = Nothing 'Libero la memroia de los Objetos
End Sub

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
Option Explicit
dim txtPath as string

Private Sub cmdExecute_Click()
txtPath = "C:\MiDirectorio\Libro1.xls"

ShellExecute Me.hwnd, "Open", txtPath, "", left(txtPath,3), 1
End Sub

Muchas gracias amigo esto es precisamente lo que me hacia falta.