Определение активного TextBook

[Joy_25]

Такая задачка:
Форма.
На ней: штук 5 TextBook и кнопочка.
Нужно: при нажатии на кнопочку в том TextBook где стоит курсор появляется надпись.
То есть по сути - определение активного TextBook.
С ячейкой просто - ActiveCell и никаких хлопот.
А вот что с TextBook делать?

[Template]

Код: Выделить всё

Private Sub CommandButton1_Click()
    ActiveControl.Text = "бла-бла-бла"
End Sub

Private Sub UserForm_Initialize()
    CommandButton1.TakeFocusOnClick = False 'или же изменить это значение вручную
End Sub

[Joy_25]

Работает!
Нет, ну работает же!!!
Большое спасибо!!!