Here's a sample code:
-------------------------------------------
Const CCHBUFFER = 272
Private Function Get_All()
Dim md As MQMD 'message desciptor
Dim gmo As MQGMO 'get message options
Dim buflen As Long 'length of get buffer
Dim Buffer As String * CCHBUFFER 'got message
Dim messlen As Long 'length of returned message
Dim CompCode As Long 'completion code
'setup Get Message Options to the required values
MQGMO_DEFAULTS gmo
gm

ptions = MQGMO_WAIT + MQGMO_ACCEPT_TRUNCATED_MSG
gmo.WaitInterval = 10000 'ten secs
'messlen = 272
'setup message descriptor to the required values
MQMD_DEFAULTS md
'setup length of GET buffer
buflen = CCHBUFFER
........and so on.................