SendMessage to Outlook XP Menu

I am not sure what is wrong, but I am trying to send ALT+E+L+E
to Outlooks Menu to invoke the editing of the Calendar Labels
programatically.
I verified the handels are correct using Spy++.
Sample of my code.

Code:

---

Case "XP" 'ALT+E+L+E
    hwndP = FindWindow("rctrl_renwnd32", "Calendar - Microsoft Outlook")
    hwndC = FindWindowEx(hwndP, 0&, "MsoCommandBarDock", "MsoDockTop")
    hwndC = FindWindowEx(hwndC, 0&, "MsoCommandBar", "Menu Bar")
    lRetVal = SendMessage(hwndC, WM_KEYDOWN, VK_MENU, 0)
    lRetVal = SendMessage(hwndC, WM_KEYUP, VK_MENU, 0)

    lRetVal = SendMessage(hwndC, WM_KEYDOWN, VK_E, 0)
    lRetVal = SendMessage(hwndC, WM_KEYUP, VK_E, 0)

    lRetVal = SendMessage(hwndC, WM_KEYDOWN, VK_L, 0)
    lRetVal = SendMessage(hwndC, WM_KEYUP, VK_L, 0)

    lRetVal = SendMessage(hwndC, WM_KEYDOWN, VK_E, 0)
    lRetVal = SendMessage(hwndC, WM_KEYUP, VK_E, 0)

---