VBA Макросы. Как записать в TextBox значение, если в другом TextBox'е не пусто?

[Посетитель]

На форме есть два текстбокса: TextBox1, TextBox2.
Если в TextBox1 появилось значение, то в TextBox2 нужно записать текст: Заполнено.
Если же TextBox1 очистили, то TextBox2 тоже нужно очистить.

[Администратор]

Private Sub TextBox1_Change()
    If Me.TextBox1.Text <> "" Then
        Me.TextBox2.Text = "Заполнено"
    Else
        Me.TextBox2.Text = ""
    End If
End Sub

[Посетитель]

Огромное спасибо!!!