Macro suddenly stopped working

[oll]

Hi,

I wrote a macro that cycles through all .dwg files in current drawing's directory and gathers certain information. It worked perfectly for almost a year, but all of a sudden, this week it stopped working and I get the following error message:
"ActiveX component can't create object".
The part of the code that causes the error is this:

Dim NextFile As String
Dim DrawingPath As String
DrawingPath = ThisDrawing.Path & "\"
NextFile = Dir(DrawingPath & "*.dwg")
GetObject (DrawingPath & NextFile)

Please help!
Thanks.