如何用VB语言提取word里面的词语放入数组中

请问，假如有一个word文档每一行有一个词语，如何用VB语言提取每一行的词语，放入一个数组中，用逗号隔开。。。形成如BJ“XX，XX，XX”这种形式，然后在VB中使用该数组。。。谢谢。。拜托了。。。