Тестирование, если что-то выбрано или нет Visio

Question

Я использую Visio 2013 и кодирования в VBA. В моем коде я хочу проверить, выделен текст или нет. Если что-то выбрано, я запускаю свой код, в противном случае я ничего не делаю. Я сделал то же самое в слове, как это:

If Selection.End - Selection.Start <> 0 Then
      'do something
End if

Я хотел сделать то же самое в Visio:

If ActiveWindow.SelectedText.End - ActiveWindow.SelectedText.Begin <> 0 Then
    'do something
End if

Но это не работает. Есть ли способ проверить, как в слове для Visio?

Любая помощь будет отличной.