Задание точки с помощью мыши с экрана в VBA

Я нашол таки способ сделать это, но возникала следующая проблема - мне не удается, при нажатии на CommandButton, перейти из UserForm на лист AutoCAD. Тоесть я могу туда перейти только "руками", а вот автоматически не получается. Если знаете как подскажите. Вот несколько примеров как не получается.

'Так не работает
Dim acad As Object
    Set acad = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
              Set acad = CreateObject("AutoCAD.Application")
              If Err Then
                  MsgBox "ошибка при подключении к AutoCAD"
                  Exit Sub
              End If
    End If
    acad.Visible = True
'Так тоже не получается
 Dim activ As AcadDocument
    Set active = ThisDrawing.Application.ActiveDocument
    ThisDrawing.ActiveSpace = acModelSpace
'Это код выбора точки
Dim point As Variant

    point = ThisDrawing.Utility.GetPoint(, "Укажите точку на экране:")

То что для указания точки этого достаточно я знаю.
Dim po as Variant
po = ThisDrawing.Utility.GetPoint
Но, если я делаю, как мне надо, через UserForm то пишет ошибку AutoCAD main windows is invisible. Если подключаю модуль, то не происходит автоматический перехода на чертеж, я должен сам перейти туда. Поэтому ищу способы активациии, если правильно выражаюсь, чертежа.

ThisDrawing это и есть активный документ ACADa. Т. е. Application.ActiveDocument

> bender
Спасибо за помощь. Мах