Использование модуля как обработчика для любого N - VBA

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

Помогите решить 2 задачки: #1 Исходные данные Есть несколько TextBox с индексами от 1002 до 1050 При нажатии на любое из них должна выводиться отдельная форма, в которой можно выбрать, что вставлять в этот TextBox На деле это реализовано просто

                    Листинг программы
                
Private Sub TextBox1002_Enter()
Proc.Show
End Sub

Как сделать так, чтобы не городить 48 подобных Sub, а сделать это одним модулем? Чтобы при нажатии на любой TextBox выводилась форма? #2 Как потом передать форме данные, что запрос именно из конкретного TextBox, чтобы он потом выбранное значение вернул? Сейчас это в форме сделано так:

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Text1 = "Дата"
ConstProc.TextBox1002 = Text1
Proc.Hide
End Sub
 
Private Sub CommandButton2_Click()
Text1 = "Время"
ConstProc.TextBox1002 = Text1
Proc.Hide
End Sub

Как это сделать в форме, чтобы она проверяла из какого TextBox пришёл запрос и ему же возвращала значение? P.s. Только осваиваю VBA, не нашёл как правильно это выполнить. Пока слабо разбираюсь в работе модулей. Не ругайтесь сильно =) Буду премного благодарен за помощь и по аналогии смогу сделать всё остальное

Решение задачи: «Использование модуля как обработчика для любого N»

textual
                            Листинг программы 
                        
Public TextBoxes() As New TxtClass