Hex Value

I'm not thinking correctly---so please help me see an oversight.

I have written a C++ std .dll to do some specific subclassing.  It works great.  It allows 2 VB apps on different threads to send a message code to each other.

I have defined this message code as:
const UINT TARGETMSG = 0x8001;  //msg we are trying to detect.

The communication is made via the PostMessage routine:

BOOL APIENTRY PostResult(HWND hwnd, long lResultCode)
//This function will post a message based on the lResultCode.
{
   long ret;
   //loop until we get a non-zero return or we max out --
   for (long i=0; i<MAXRETRIES; i++)
   {    
     ret=PostMessage(hwnd,TARGETMSG,lResultCode,0);
     if (ret != 0) return VB_TRUE;
   }
   return FALSE;
}

The Proc in the VB App that receives this result is:

...
Public Const MYUSERMSG AS LONG = &H8001
...
Public Function SubstWinProc1(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim ret
  Select Case uMsg
    Case MYUSERMSG
        If wParam = 0 Then ret = "SUCCESSFUL" Else ret = "FAILURE"
        Form1.txtMsgProcesser = ret
        SubstWinProc1 = False 'return a false to prevent further processing of this uMsg.
    Case Else
        'Tell the DLL to handle the message
        SubstWinProc1 = True
  End Select
End Function

MY PROBLEM IS THAT THE uMsg HAS A VALUE OF 32769 BUT THE VALUE OF MYUSERMSG = -32767