есть ф-ия 

  Dim md As MQMD                    ' Message descriptor
  Dim gmo As MQGMO                  ' Put message options
  Dim BufLen As Long                ' Length of message to be put
  Dim MessLen As Long               ' Length of returned message
  Dim CompCode As Long              ' Completion code
  Dim Reason As Long                ' Reason code
  Dim arrData() As Byte
  Dim msg
  Dim obj As Object 'MBCOMLib.Message
  
  ReceiveStructure = False
  
  ' Setup Get Message Options to the required values
  MQGMO_DEFAULTS gmo
  gmo.Options = MQGMO_WAIT + MQGMO_ACCEPT_TRUNCATED_MSG
  gmo.WaitInterval =  1000 

  ' Setup message descriptor to the required values
  MQMD_DEFAULTS md
  
  BufLen = 32
  
  'ReDim arrData( 1000 )
  ReDim msg( 40 )
  'msg = arrData
  
  ' Get message from the queue
  MQGETAny Hconn, gHobj, md, gmo, BufLen, msg, MessLen, CompCode, Reason

 Dim gmo As MQGMO                  ' Put message options
  Dim BufLen As Long                ' Length of message to be put
  Dim MessLen As Long               ' Length of returned message
  Dim CompCode As Long              ' Completion code
  Dim Reason As Long                ' Reason code
  Dim msg
  
  
  ReceiveStructure = False
  
  ' Setup Get Message Options to the required values
  MQGMO_DEFAULTS gmo
  gmo.Options = MQGMO_WAIT + MQGMO_ACCEPT_TRUNCATED_MSG
  gmo.WaitInterval =  1000 

  ' Setup message descriptor to the required values
  MQMD_DEFAULTS md
  
  BufLen = 40
  
  'ReDim arrData( 1000 )
  ReDim msg( 41 )
  'msg = arrData
  
  ' Get message from the queue
  MQGETAny Hconn, gHobj, md, gmo, BufLen, CVar(msg), MessLen, CompCode, Reason
  ReDim msg(MessLen)
 
  If CompCode =  0  Then
    
    .....