Переход из TextBox в UserForm к определенной ячейке

Private Sub ListboxAddItem(L As MSForms.ListBox, s As String, Optional mLen Integer = 38
   Dim st, s1 As String, i As Integer
   st = Split(s)
   For i = 0 To UBound(st)
       s1 = s1 & st(i) & " "
       If Len(s1) > mLen Then
           L.AddItem Trim$(s1)
           s1 = ""
       End If
   Next i
   If s <> "" Then L.AddItem Trim$(s1)
End Sub

'...
Set spisok = ThisWorkbook.Worksheet("Таблица")
Set result = .Find(what:=TextBox1.Value, LookIn:=xlFormulas, lookat:=xlWhole, TatchCase:=False, SearchDirection:=xlPrevious)
'...
text_new1 = "Сотрудник: " & spisok.Cells(result.Row, sotrudnik).Value & "; ДАТА: " & spisokar.Cells(result.Row, data_val).Value
text_new2 = "Наименование: " & spisok.Cells(result.Rov, text_task).Value
text_new3 = "Задача: " & spisok.Cells(result.Row, task_num).Value
text_new4 = "Комментарий: " & spisok.Cells(result.Row, commentary)
text_new5 = 'ещё значение
text_new6 = "Ячейка: " & result.Address
text_new7 = ""
'Добавляем значения ListBox. Те значения, по которым есть риск, что в 1 строку не влезут прогоняем через указанный выше макрос
Me.ListBox1.AddItem text_new1
Call ListboxAddItem(ListBox1, text_new2)
Me.ListBox1.AddItem text_new3
Call ListBoxAddItem(Listbox1, text_new4)
Me.ListBox1.AddItem text_new5
Me.ListBox1.AddItem text_new6
Me.ListBox1.AddItem text_new7
'...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim TextListBox As Variant
    TextListBox = UserForm1.ListBox1.Value
    If TextListBox Like "Ячейка:*" Then
        st = Len(TextListBox)
        str1 = InStr(1, TextListBox, "Ячейка:", vbTextCompare) + 8
        adr = Mid(TextListBox, str1)
        Thisworkbook.Worksheets("Таблица").Activate
        ThisWorkbook.Worksheets("Таблица").Range(adr).EntireRow.Select
        Unload UserForm1
    End If
End Sub