Like this

   'Create a clone dictionary
    For Each varKey In oDicSec.Keys
      Set oDicQue(varKey) = oDicSec(varKey).Clone
      dblSecWt = dblWt * oDicSec(varKey).Count
      lngReserve = oDicSec(varKey).Count - Int(dblSecWt)
      oDicQue(varKey).enqueue lngReserve
    Next
    Do
      For Each varKey In oDicSec.Keys
        With oDicQue(varKey)
            If .Count > .toarray()(.Count - 1) And .Count > 1 Then
              'Note: oDicQue(varKey).dequeue returns the index number of a test bank table.
              oDicExtract(.dequeue) = Empty
            End If
        End With