kill process started with Shell

I want to start a web browser with the Shell command, wait a few seconds, and then kill the window.  I can't kill the window.  Any ideas?  (The msgboxs give valid numbers.  For example, on one run:  5076, 736, 1)
=================
=================

Private Const SYNCHRONIZE = &H100000
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
            ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Sub LaunchWebBrowser(Optional URL As String = vbNullString)
.
.
.
  pointerPID = Shell(CallMe, vbMinimizedNoFocus)
Msgbox pointerPID  
  MyHnd = OpenProcess(SYNCHRONIZE, 0, pointerPID)
  Sleep 5
MsgBox MyHnd
  x = CloseHandle (MyHnd)
MsgBox x

Select all Open in new window