#import "RegExp.tlb" no_namespace
  
  try {
    static IRegExpPtr regExp( __uuidof(RegExp) );
    regExp->Pattern = _bstr_t(lpszPattern);
  
    HWND hWndCtrl = pDX->PrepareEditCtrl(nIDC);
    if (pDX->m_bSaveAndValidate)
    {
        int nLen = ::GetWindowTextLength(hWndCtrl);
        ::GetWindowText(hWndCtrl, value.GetBufferSetLength(nLen),nLen+1);
        value.ReleaseBuffer();
  
        //now we verify it
        if ( regExp->Test( (LPCTSTR)value) )
        {
            IMatchCollectionPtr matches=regExp->Execute((LPCTSTR)value);
            if ( matches->Count== 1)
            {
                IMatchPtr match = matches->Item[0];
                if ( match->FirstIndex==0 && match->Length == value.GetLength() )
                {
                  return;
                }
            }
        }
        CString strMsg = CString("The input does not exactly have the pattern ") + lpszPattern;
        pDX->m_pDlgWnd->MessageBox(strMsg);
        pDX->PrepareEditCtrl(nIDC);
        pDX->Fail();
    }
    else
    {
    }
  }
  catch (_com_error& e)
  {
      AfxMessageBox( e.ErrorMessage() );
  }