Visual Basic - Como crear un hipervinculo a un *.xls (excel)??

De momento lo hago asi:

Private Sub Command1_Click()
Dim D As Long
D = Shell("c:\windows\progman.exe C:\aa.xls ", vbNormalFocus)
End Sub

Funciona pero al salir se queda el administrador de programas abierto.
Agradecería cualquier comentario que me pueda ayudar a resolver este problema.
Salu2

Utilizando funciones de la Windows API es más eficiente. Solo pasa a la función RunApp el nombre de tu *.xls


Public 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

Public Sub RunApp(strFile)
Call ShellExecute(0&, vbNullString, strFile, vbNullString, vbNullString, vbNormalFocus)
End Sub

Lo he hecho pero no me funciona.
Podrias ser un poco mas explicito??
Gracias de antemano.