`

    Dim noMDEntries As New QuickFix.NoMDEntries()
    message.get(noMDEntries)

    Dim group As New QuickFix42.MarketDataSnapshotFullRefresh.NoMDEntries()
    Dim MDEntryType As New QuickFix.MDEntryType()
    Dim MDEntryPx As New QuickFix.MDEntryPx()
    Dim MDEntrySize As New QuickFix.MDEntrySize()
    Dim orderID As New QuickFix.OrderID()

    message.getGroup(1, group)
    group.get(MDEntryType)
    group.get(MDEntryPx)
    group.get(MDEntrySize)
    group.get(orderID)

    message.getGroup(2, group)
    group.get(MDEntryType)
    group.get(MDEntryPx)
    group.get(MDEntrySize)
    group.get(orderID)

`