Как получить доступ к открытому файлу ?

Sub Example_Documents()
    ' This example obtains a reference to the Documents collection
    ' and displays information about the loaded documents.
    Dim Document As AcadDocument
    Dim msg As String
    msg = vbCrLf
    ' Cycle through the Documents collection and retrieve the names
    ' of the loaded documents
    For Each Document In Documents
        msg = msg & Document.Name & vbCrLf
    Next
    ' Display loaded document information
    If Documents.Count > 0 Then
        MsgBox "The loaded documents are: " & msg
    Else
        MsgBox "There are no loaded documents!"
    End If
    Dim DocName As String
    DocName = InputBox("Enter grawind name:")
    Dim Flag As Boolean
    Flag = True
    For Each Document In Documents
        If (DocName = Document.Name) Then
            Call vCircle(Document)
            Document.Close
            Flag = False
            Exit For
        End If
    Next Document
    If (Flag) Then
       MsgBox "The wrong name of the drawing is entered", vbCritical
       End
    End If
'close this drawing
End Sub
Private Sub vCircle(Document As AcadDocument)
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    ' Define the circle
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 50#
    ' Create the Circle object in model space
    Set circleObj = Document.ModelSpace.AddCircle(centerPoint, radius)
End Sub