Добавление данных в TextBox

[gavrylyuk]

Всем добрый день. Возникла проблема следующего характера: есть 100 строчек с данными, в каждой строчке находится кнопка вызывающая форму. Необходимо чтобы при нажатии кнопки в определенной строчке, из соседнего столбца той же строчки в TextBox формы перетянулись значения. Подскажите пожалуйста как это сделать, а то я 4 часа мучаюсь и ничего не получается.
Спасибо

[IgorGO]

1) в Sub Кнопка1_Щелкнуть()
присвойте в TextBox значала значение, а потом вызывайте форму, а не наоборот
2) в Private Sub TextBox1_Change()
TextBox1 = Cells(1, "B") - закомментируйте это, или удалите вообще. потому что этот код в TextBox1 постоянно заталкивает значение из ячейки В1,
3) в Sub Кнопка1_Щелкнуть()
используйте
UserForm1.TextBox1.Text = ...

и последнее, написано 100 строк, в каждой своя кпонка... не устанеете 100 обработчиков писать: Sub Кнопка1_Щелкнуть(), Sub Кнопка2_Щелкнуть(), Sub Кнопка3_Щелкнуть(), Sub Кнопка..._Щелкнуть(). Достаточно одной кнопки, а в форму писать данные из активного ряда:
UserForm1.TextBox1.Text = Cells(ActiveCell.Row, 1)