Копировать гиперссылку в буфер обмена - VB

Формулировка задачи:

Добрый день! Так как класс Hyperlinks разработан для Exel - пишу сюда. В некоторые документы мне нужно вставлять ссылки на письма в outlook. Для получения ссылок написал такой макрос, он копирует внутренний ID письма и создает верную ссылку, никак не могу сделать так, чтобы в буфер копировалась именно гиперссылка
Работающий макрос, копирующий обычную ссылку и тему письма:

Попытка сделать копирование гиперссылки:

На последней строке выдаёт ошибку: 4605 "Метод или свойство недоступны, поскольку выделенный текст отсутствует"
Подскажите, как победить

Решение задачи: «Копировать гиперссылку в буфер обмена»

textual
                            Листинг программы 
                        
<title></title>
RBC

<a <span="" style="color: #ff0000;">href</a><a <span="" style="color: #ff0000;">="http://www.rbc.ru">rbc.ru

</a>