紧急求助：用VB写代码如何在WORD中插入图片！（代码请见内容）

主要代码如下：
dim app As Application
dim doc As Document
dim book As BooksSet app = CreateObject("word.application")
Set doc = app.Documents.Add("c:\abc.dot")
doc.Books.Item("aa").Range.Text ="测试文档"
Call doc.Books.Item("bb").Range.InsertFile("c:\testpic.jpg")
app.Visible = True存在问题：输出到WORD的图片是乱码而不是图片，如果c:\testpic.jpg换成word文档就可以正常输出指定在本地的文件了，请高手指点如何用VB写代码如何在WORD中插入图片。