请教大神一个问题，就是我现在想实现打电话进出队列问题，我现在需要获取排队数，排队数 = 进队列数 - 出队列数，假如我现在定义2个动态数组：
ReDim Preserve SkillVRP() ‘保存来电号码
ReDim Preserve skills() ’保存唯一标识ID
关于进队列：
假如现在有一个1001电话打进来，对应ID：001，然后我就把1001号码SkillVRP()数组中，第二个来电号码1002打进来，同样保存到SkillVRP()数组中，1001和1002之间用逗号分隔，如：1001,1002.....以此类推
同样把对应的ID：001和002保存到skills() 数组中，中间也是用逗号分隔，如：001,002....以此类推
问题一：当有20个分机号打进来，如何记录进队列的这20个数量？
关于出队列：
假如1001号码被分配，那需要从这2个数组中分别将1001和对应的ID：001从数组中减掉，假如有3个1001那就要将这3个1001全部减掉，同时从skills() 数组中将这三个分机号对应的ID也要减掉
问题二：当有8个分机出队列，如何记录出队列的这8个数量？
只有知道进队列和出队列的数量才能知道整个排队数
因我刚接触VB.NET时间不长，不清楚这上面该如何实现，希望在论坛中能有大神帮忙解答下，最好能附上代码，我也好学习学习，
在此感谢各位了！
------解决思路----------------------
使用队列管理电话服务时，你不需要想那么复杂。当进队时，你只要保证在队头同时写入号码和ID，出队列时保证同时删除队尾的号码和ID就可以了。关于队列还有多少号码，VB.net的数组提供了内置的Count属性，用于获取数组的大小。
VB.net有一个Dictionary(of T）类，用这个类来实现你要的效果更方便，你可以去研究下。
------解决思路----------------------
Dim dictionary As New Dictionary(Of String, Integer)
看：http://www.dotnetperls.com/dictionary-vbnet