求高手指点：怎样用VB提取WORD文档的表格中红色的文字到TEXTBOX中？

本人初涉VB编程
将WORD文档表格中的文字提取出来我已经能够实现了，代码如下：
Private Sub Command8_Click()
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
Set Word = WordApp.Documents.Open(App.Path & "\A.doc")

Text1.Text = WordApp.ActiveDocument.Tables(1).cell(1, 2) '提取WORD文档第一个表格第一行第二列的文字到Text1

不过也有个小问题，就是提取出来的文字显示到DATAGRID控件中时显示出来后面有一个黑色的圆点，我猜测是文字后面的空格造成的，有没有办法去掉？

最关键的是有的表格中有很多文字，我只想提取其中红色标记的文字，请问有没有什么办法能够实现？VB代码（不是VBA，也不是VB.NET代码）应该怎么写？

跪求高手指点，谢谢！ --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/1627134 --------------------编程问答-------------------- --------------------编程问答-------------------- 在Word2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

补充：VB ,  VBA