Ввести данные в форму Excel - VB

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

Есть строка в экселе. При двойном нажатии по ячейке открывается форма, в которую должны подставляться данные из этой строки.
Делаю form1.show - дальше код не выполняется, т.е. значения не подставляются в форму.
Как вариант пытался описать глобальную переменную, коттрая по щелчку по ячейке передавала значение номера строки в инициализацию формы, но не передается вы дает пустое значение.
в декларайшн книги написал
Option Explicit
Public acol As Long
---------------------------- ниже щелчок на ячейке
private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a As Long
If ActiveCell.Column = 3 Or ActiveCell.Column = 1 Then
acol = ActiveCell.Row
UserForm1.Show
--------------------------------------- инициализация формы
private Sub UserForm_Initialize()
if acol =1 then
------------------------------------------
Подскажите как решить проблему.

Решение задачи: «Ввести данные в форму Excel»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_BeforeDoubleClick(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range, Cancel <font color="blue">As</font> <font color="blue">Boolean</font>)
    <font color="blue">Dim</font> a <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">If</font> ActiveCell.Column = <font color="darkblue"><b>3</b></font> <font color="blue">Or</font> ActiveCell.Column = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    acol = ActiveCell.Row
    Load UserForm1
    UserForm1.TextBox1 = acol
    UserForm1.Show
    MsgBox <font color="teal">"Программа вернулась"</font>
<font color="blue">End</font> <font color="blue">If</font>
                        