Sub CreateDwg()
 
 Const FileDwg = "I:\document\drawings.dwg" '<-- менять здесь
 
 Dim Acad As Object, IsNew As Boolean
 
 On Error Resume Next
 Set Acad = GetObject(, "AutoCAD.Application")
 
    If Err Then
    IsNew = True
    Err.Clear
    Set Acad = CreateObject("AutoCAD.Application")
    End If
 
 On Error GoTo exit_
 
 With Acad.Documents
 
    If Dir(FileDwg) = "" Then
    ' Если файла FileDwg на месте нет, то создать новый
    .Add
    .SaveAs FileDwg
    Else
    ' Файл FileDwg уже есть - открыть его
    .Open FileDwg
    End If
 
 End With
 
exit_:
 If Err Then MsgBox Err.Description, vbCritical, "Error"
 
End Sub