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