Пару вопросов по VBA и буфер обмена

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

Пару вопросов по VBA
1. Как очистить буфер обмена?
2. Как проверить после добавления в буфер есть ли там что-то?

Решение задачи: «Пару вопросов по VBA и буфер обмена»

textual
                            Листинг программы 
                        

                            <font color="blue">If</font> Clipboard.GetData() = <font color="darkblue"><b>0</b></font> <font color="blue">And</font> Clipboard.GetText() = <font color="teal">""</font> <font color="blue">Then</font>
    MsgBox <font color="teal">"Пустой"</font>
<font color="blue">Else</font>
    MsgBox <font color="teal">"Заполненный"</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="00AA00">'очищаем</font>
Clipboard.Clear
                        