Вопрос по формам VBA

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

Делаю форму в VBA по смене пароля.
На ней три TextBox (старый пароль, новый пароль и повтор нового пароля), один CheckBox (показывать текст) и две CommandButton (Поменять пароль и отмена).
Хочу чтобы при наличии галочки в CheckBox - пароли отображались, а при отсутсвии - текст заменялся звездочками.
Понятно что скрипт должен быть примерно такой:

CheckBox1.Value =  
TextBox1.PasswordChar = 
TextBox2.PasswordChar = 
TextBox3.PasswordChar = 

TextBox1.PasswordChar = 
TextBox2.PasswordChar = 
TextBox3.PasswordChar = 
 

И думаю что его надо нацепить на загрузку формы. Как это сделать и есть ли более изящные решения?

Решение задачи: «Вопрос по формам VBA»

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

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> <font color="blue">Sub</font> CheckBox1_Click()
    ShowPassword
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Activate()
    ShowPassword
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> ShowPassword()

    <font color="blue">If</font> CheckBox1.Value <font color="blue">Then</font>
        TextBox1.PasswordChar = <font color="teal">""</font>
        TextBox2.PasswordChar = <font color="teal">""</font>
        TextBox3.PasswordChar = <font color="teal">""</font>
    <font color="blue">Else</font>
        TextBox1.PasswordChar = <font color="teal">"*"</font>
        TextBox2.PasswordChar = <font color="teal">"*"</font>
        TextBox3.PasswordChar = <font color="teal">"*"</font>
    <font color="blue">End</font> <font color="blue">If</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        