Outlook Kontakt öffnen

Mit dem folgendem Code habe ich die Möglichkeit von Excel in ein Notizfeld eines Kontaktes zu schreiben.

Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.ActiveInspector.CurrentItem
myItem.Body = Range("A1").Text
myItem.Save
Set myItem = Nothing
Set myOLApp = Nothing

Bei diesem Code muss allerdings der gewünschte Kontakt geöffnet sein.
Gibt es eine Möglichkeit in automatisch zu öffnen und wieder zu schließen?

Danke.