Créer Combobox qui ouvre Outlook

Bonjour à toutes et tous
,
je cherche à créer un module qui me permette d'ouvrir directement outlook,
en l'occurrence le calendrier
ce n'est peux être pas réalisable...

j'ai éssayé ça:
Public Const NomDuCheminoutlook$ = "C:\Program Files\MicrosoftOffice\Office12\OUTLOOK"
avec:
Public Sub ButtonAccesOUTLOOK()
Chemin$ = NomDuCheminoutlook$
GoTo Chemin
On Error GoTo 0: Exit Sub ' fin quitte

ErrDossier: '-------------------------------------------
M$ = "Erreur n°" & Str(Err.Number) & " générée par " & Err.Source & vbLf & Err.Description
MsgBox M$, vbCritical, "Erreur", Err.HelpFile, Err.HelpContext
On Error GoTo 0
End Sub

Mais bien entendu, ça ne fonctionne pas!!!!

Merci à vous