VBScript implementation of a priority queue