Another class to use at your own risk. Can be used like:
Dim queue As New Queue()
Call queue.insert("Domino")
Call queue.insert("Notes")
Call queue.insert("R5")
Print "Queue is: " & queue.toString()
Dim tmp As String
Do While Not queue.isEmpty()
If Isobject(queue.getFront()) Then
tmp = queue.remove().toString()
Else
tmp = queue.remove()
End If
Print "Element is: " & tmp
Loop