VB语言怎么将数组中指定位置的数据往前移动到最后一个不为0处？

VB语言怎么将数组中指定位置的数据往前移动到最后一个不为0处？具体代码编程的方式？

http://blog.csdn.net/cym_bj/article/details/39118803