 'Bail
      End Select
    Next nEntry                                           'Next entry
    
'Make space for the new entry
    ReDim Preserve aMsgTbl(ARRAY_LB To nEntry)            'Increase the size of
     the table. NB nEntry = nMsgCnt + 1
    nMsgCnt = nEntry                                      'Bump the entry count
    aMsgTbl(nEntry) = uMsg                                'Store the message in
     the table
  End If
  
  Call PatchVal(OFFSET_P3, nMsgCnt)                       'Patch the Before
