Label1 vs. Text Box1

[mainunit23]

Доброго времени суток Господа.

Нужна Ваша помощь в реализации одной идейки. Существует Excel (в приложении) при открытии которого выскакивает автоматом UserForm1, которая содержит Label1 и Textbox1. Задача заключается в том что-бы реализовать автоматическое обновление значений в этих блоках (прямая связь с ячейками из Excel).
Часть этапа я проделал, однако обновление происходит только после clickа по форме (хотелось бы автоматом) и текст в TextBox1 не переносится хотя стоит настройка WordWrap -> True.

Заранее спасибо за любой совет.

p.s Example в приложении.

[IgorGO]

см. вложение

1.
Private Sub userform_initialize()
Label1 = Sheets("Лист1").Cells(4, 6)
TextBox1 = Sheets("Лист1").Cells(5, 6)
End Sub

2
Multiline = True

[mainunit23]

Спасибо IgorGO. Я знал что истина где-то рядом.