Как отобразить выбранный текст списка в texbox? Word 2016 VB

Question

Во-первых, позвольте мне сказать, что я новичок в VB и действительно весь Кодекс. Я пытаюсь сделать простой выбор списка в текстовом поле нажатием кнопки. Я нашел некоторый код, который выглядел так, как будто он работал, но заполняет только первый элемент, введенный в мой список, независимо от того, что было выбрано в этом списке. Я что-то упустил!

Большая часть того, что я нашел в Интернете, говорит об использовании SelectedItem или Get? но я просто получаю сообщение об ошибке.

UserForm Image Нажмите здесь

   Private Sub CommandButton6_Click()
        UserForm1.TextBox1 = ListBox1.List(lItem)

End Sub

    Private Sub UserForm_Initialize()
        Dim myArray() As String
          'Use Split function to return a zero based one dimensional array.
           myArray = Split(".020|.030|.032|", "|")
           'Use .List method to populate listbox.
        ListBox1.List = myArray
lbl_Exit:


    'Use Split function to return a zero based one dimensional array.
          myArray = Split("THK|DIA|TUBE|FORGING", "|")
    'Use .List method to populate listbox.
     ListBox2.List = myArray


     'Use Split function to return a zero based one dimensional array.
          myArray = Split("INCO|CRES|", "|")
     'Use .List method to populate listbox.
          ListBox3.List = myArray

    'Use Split function to return a zero based one dimensional array.
          myArray = Split("625|304|5052|", "|")
    'Use .List method to populate listbox.
          ListBox4.List = myArray


     'Use Split function to return a zero based one dimensional array.
          myArray = Split("AMS 5599|AMS 5512|AMS 4117|", "|")
     'Use .List method to populate listbox.
          ComboBox1.List = myArray

    If CheckBox1.Value = False Then
        TextBox4.Visible = False
        TextBox5.Visible = False
        Label10.Visible = False
        Label3.Visible = False
        Label11.Visible = False
        Label8.Visible = False
        Label9.Visible = False
        CommandButton1.Visible = True
        CommandButton6.Visible = False
    End If


End Sub