Error 438 when trying to insert a picture into a Word document.

The following code fails on my machine with a 438 error.

I have the Word 10.0 object library referenced.

I can insert text into the document, just not a picture.

Any ideas?

Private Sub Command1_Click()
    Dim mdlappword As Word.Application
    Dim mdlnewdoc As Word.Document
    Set mdlappword = New Word.Application
    Set mdlnewdoc = mdlappword.Documents.Add
    mdlnewdoc.Select
    'mdlNewDoc.Shapes.AddPicture filename:=signaturefile, linktofile:=False, Savewithdocument:=True
    test = mdlappword.ActiveDocument.Shapes.AddPicture("C:\junk\toc\andrew.bmp") ', False, True)
    mdlnewdoc.SaveAs "c:\junk\toc\test.doc"
End Sub