Помогие намисать небольшой макрос.... - VB

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

Например, есть выпадающий список из 3-х пунктов
Текст1
Текст2
Текст3
Я хотел бы,что б при выборе одного из пунктов выводилось сообщение.
"Вы уверены что хотите применить Текст1"
Ответ "Да" и "Нет"
Ну в зависимости от выбора, есть НЕТ, то никаких действий, есть Да то приступает работать другая программа....
помогите написать такой макрос, очень прошу...

Решение задачи: «Помогие намисать небольшой макрос....»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> ComboBox1_Click()
    <font color="blue">Dim</font> s <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> ErrH
    s = ComboBox1.List(ComboBox1.ListIndex)
    <font color="blue">If</font> MsgBox(<font color="teal">"Вы уверены что хотите применить "</font><font color="teal">""</font> & s & <font color="teal">""</font><font color="teal">"?"</font>, _
            vbQuestion + vbYesNo + vbDefaultButton1, <font color="teal">""</font>) = vbYes <font color="blue">Then</font>
        <font color="00AA00">'Код в случае подтверждения</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Exit</font> <font color="blue">Sub</font>
ErrH:
    MsgBox Err.Description, vbCritical, Err.Source
<font color="blue">End</font> <font color="blue">Sub</font>

                        