Visual Basic - Abrir un archivo de excel desde VB

Hola a todos:

Necesito hacer un programa que en el que introduzaca el nombre de un archivo de excel.
Apriete un botón y automaticamente me abra ese archivo en caso de que ya exista, si no existe entonces el programa deberá crearlo.

Gracias de antemano por su ayuda.

P.D. Al decir ABRIR EL ARCHIVO me refiero a que sea visible en la barra de tareas, de forma que pueda alternar entre mi aplicación y el archivos con un ALT - Tab.

mira para brir un archivo excel puedes usar lo siguente

Private Sub cmdExcel3_Click()
Dim appExcel As Excel.Application
Dim wbLibro As Workbook
Dim strRuta As String

Set appExcel = New Excel.Application

'Ruta de un archivo de Excel existente
strRuta = App.Path & "\Prueba.xls"

'Verificamos que exista el archivo
If Len(Dir(strRuta)) > 0 Then

'Abrimos un libro existente
Set wbLibro = appExcel.Workbooks.Open(strRuta)
'Escribimos en la celda A1 de la primer hoja
wbLibro.Worksheets(1).Range("A1").Value = "Esto lo puse desde VB"
'Guardamos los cambios en el libro
wbLibro.Save
wbLibro.Close
End If
de esta manera puedes brir un archivo y trabajar sobre el

y para creer uno nuevo lpudes ocupar lo siguente

Private Sub Sge012xls()
Dim aTitHojaExcel(15)
'** Aqui se definen los titulos que luego se pondran en la planilla **
aTitHojaExcel(1) = "Empresa"
aTitHojaExcel(2) = "RutCliente"
aTitHojaExcel(3) = "Rut Proveedor"

Dim i As Integer
Dim ApExcel As Object
Dim hoja As Worksheet
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Set hoja = ApExcel.Worksheets.Add
'Vamos a poner los Titulos
ApExcel.Cells(1, 1).Formula = "Voucher Pendientes de Pago"
ApExcel.Cells(1, 1).Font.Size = 18
For i = 1 To 3
ApExcel.Cells(2, i).Formula = aTitHojaExcel(i) %0