Listboxes provide suitable functionality to act as a quick queue. Create a listbox named ListMyQueue. Use this code to add to your Queue:
Public Sub Enqueue(StringToAdd As String)
If Len(String_to_Add) > 0 Then
ParentForm.ListMyQueue.AddItem _
StringToAdd
End If
End Sub
Use this code to retrieve from your Queue:
Public Function Dequeue() As Variant
If ParentForm.ListQueue.ListCount > 0 Then
Dequeue = ParentForm.ListQueue.List(0)
Parent_Form.ListQueue.RemoveItem (0)
Else
MsgBox
