Macro suddenly stopped working

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.