Вывод содержание заголовка в textbox

[EdoBedo]

Здравствуйте, есть listbox на форме в которых выводятся заголовки документа, как можно осуществить что бы при выборе заголовка в listbox, он выводил текст(содержимое) этого заголовка в textbox?

Вот код вывода заголовков

Private Sub ListBox1_Change()
    Set wa = CreateObject("Word.Application")
    On Error Resume Next
     Set wd = wa.Documents.Open(ListBox1.Column(1) & "\" & Me.ListBox1.Text)
    If Err = 0 Then
        
       astrHeadings = _
        wd.GetCrossReferenceItems(wdRefTypeHeading)
        
        ListBox2.List = astrHeadings
        
      Else
        Me.ListBox2.List = ""
        Err = 0
    End If
    wd.Close False
    wa.Quit False
End Sub