Window.Hwnd (Word)

Returns a Long that indicates the window handle of the specified window.

Dim lngHwnd As Long
lngHwnd = ActiveWindow.Hwnd