Open file dialog i word

Hejsa

Jeg har brug for en open file dialog i vb i word. Der er ikke tale om, at jeg skal åbne filen som doc i word. Jeg skal bruge filnavnet videre inde i vb. Endvidere har jeg ikke en form jeg kan placere en common file dialog på, hvorfor den skal creates runtime. Jeg har forsøgt med

Sub Macro1()
'
Dim CDObj As Object
Set CDObj = CreateObject("MSComDlg.CommonDialog")
CDObj.MaxFileSize = 260 ' Init buffer (NECESSARY!)
CDObj.flags = &H1004    ' File Must Exist + no ReadOnly checkbox
CDObj.ShowOpen
Dim fname
fname = CDObj.FileName
' Cancel or no file name?
If fname <> vbNullString Then
  MsgBox "The file you choose is " & fname
End If
Set CDObj = Nothing
   
End Sub

Men den kan ikke create objectet og skriver :
ActiveX component can't create object or return reference to this object (Error 429)

Hvad gør jeg galt?

MVH Justin Case