Option Explicit

Private Type CRITICAL_SECTION
    dummy As Long
End Type

Private Declare Sub InitializeCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Private Declare Sub EnterCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Private Declare Sub LeaveCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)
Private Declare Sub DeleteCriticalSection Lib "kernel32" (lpCriticalSection As CRITICAL_SECTION)

Private m_objQueue As Collection
Private m_CS As CRITICAL_SECTION

Public Enum QueueValueTypeEnum

    qvtResult
    qvtReplay
End Enum

' èíèöèàëèçàöèÿ
Private Sub Class_Initialize()

    Set m_objQueue = New Collection
    InitializeCriticalSection m_CS
End Sub

' äîáàâèòü â î÷åðåäü
Public Sub AddValue(ValueType As QueueValueTypeEnum, Value As Variant)

    EnterCriticalSection m_CS
    m_objQueue.Add Array(ValueType, Value)
    LeaveCriticalSection m_CS
End Sub

' ïîëó÷èòü ýëåìåíò èç î÷åðåäè
Public Function GetValue() As Variant

    EnterCriticalSection m_CS
    GetValue = m_objQueue( 1 )
    m_objQueue.Remove  1 
    LeaveCriticalSection m_CS
End Function

' êîëè÷åñòâî ýëåìåíòîâ
Public Function Count() As Long

    EnterCriticalSection m_CS
    Count = m_objQueue.Count
    LeaveCriticalSection m_CS
End Function

' îñâîáîæäåíèå
Private Sub Class_Terminate()

    DeleteCriticalSection m_CS
    Set m_objQueue = Nothing
End Sub