VB 数字序号归类，大家看一下能不能实现！

Question

数据：
001
002
003
005
006
007
008
010
012
013
请大神们看有没有办法，使用VB统计为；
001～003、005～008、010、012～013

Answer 1

vb还是vb.net？split转为数组，遍历数组项转为数字，判断是否连续，连续就连一起，单个就不要加~号