vb.net подключается к серверу MQ

Я перенес приложение с vb6 на vb.net, все работает нормально, за исключением получения сообщения с сервера MQ, когда вызывается MQGet, я получаю сообщение об ошибке 2033 (нет сообщения)
также прикрепляю сообщение захвата, отправленное MQ с работы vb6 и не работает vb.net, помогите?введите здесь описание изображения

    '***********************************
    'Send(MQPUT) to MQSeries and CICS
    '***********************************
    PutMsgOpts = MQPMO_DEFAULT

    MsgDesc = MQMD_DEFAULT
    MsgDesc.Persistence = MQPER_PERSISTENT
    MsgDesc.MsgId = MQMI_NONE.Value
    MsgDesc.CorrelId = "AMQ!NEW_SESSION_CORRELID" 'if using MQBridge
    MsgDesc.ReplyToQ = gReplyToQ
    MsgDesc.ReplyToQMgr = gMQRplyMgrName
    MsgDesc.Format_Renamed = MQFMT_STRING

    'sPutMsg is composed of 8 byte program name(host/cics)
    ' plus data desired to pass as string only (dfcommarea)
    '************  MAX LENGTH IS 32776  *******************
    sPutMsg = gCICSPrgName & gsHost_Msg
    If Len(sPutMsg) <> 32768 Then
        sPutMsg = sPutMsg & Space(32768 - Len(sPutMsg))
    End If

    sMsgIdGet.Value = MsgDesc.MsgId

    '*******************************************
    'MQClose the queue for request sent to host
    '*******************************************
    'HOST-BYPASS
    MQCLOSE(Hconn, Hobj, MQCO_NONE, cC, Reason)
    'HOST-BYPASS

    '**********************************************************
    'MQOpen the queue for receiving the request from the host
    '**********************************************************

    'set up the queue name
    ObjDesc = MQOD_DEFAULT
    ObjDesc.ObjectName = gReplyToQ

    'Open
    'HOST-BYPASS
    MQOPEN(Hconn, ObjDesc, MQOO_INPUT_AS_Q_DEF Or MQOO_FAIL_IF_QUIESCING, Hobj, cC, Reason)
    'HOST-BYPASS
    'Hconn is set by MQseries in the Connect

    '**************************************
    'Receive (MQGET) from MQSeries and CICS
    '**************************************
    GetMsgOpts = MQGMO_DEFAULT
    GetMsgOpts.Options = MQGMO_WAIT Or MQGMO_CONVERT
    GetMsgOpts.WaitInterval = 10000 '20 seconds

    MsgDesc = MQMD_DEFAULT
    MsgDesc.Format_Renamed = MQFMT_STRING
    MsgDesc.Persistence = MQPER_PERSISTENT
    MsgDesc.CorrelId = sMsgIdGet.Value 'set correlId with MQGET msgid returned
    MsgDesc.MsgId = MQMI_NONE.Value
    MsgDesc.ReplyToQ = gReplyToQ
    MsgDesc.ReplyToQMgr = gMQRplyMgrName

    '** sGetMsg is composed of 8 byte program name(host/cics)
    '** plus data desired to pass as string only (dfcommarea)

    '************  MAX LENGTH IS 32776  *******************
    sGetMsg = New String(" ", 32768)

    'Command to receive from to MQSeries and CICS
    retryCount = 0
    cC = MQCC_OK + 1
    Reason = 2033
    Do While cC <> MQCC_OK And Reason = 2033
        MQGET(Hconn, Hobj, MsgDesc, GetMsgOpts, Len(sGetMsg), sGetMsg, readlen, cC, Reason)
        retryCount = retryCount + 1
        If retryCount > 1 Then Exit Do
    Loop 
    '************************
    'MQClose queue for input
    '************************
    MQCLOSE(Hconn, Hobj, MQCO_NONE, cC, Reason)