Listboxes are not comboboxes and thus require a different approach. It is difficult to understand what you intend to do with multiple selections from your pervious thread (or this one).

Private Sub ListBox1_Click()
Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            Select Case ListBox1.List(i)
                Case "Requires further investigation":
                    TextBox2.Text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. In rhoncus, lorem et fringilla dictum, orci orci posuere lacus, ut auctor libero neque non purus. Fusce a commodo ligula."
                Case "Urgent review":
                    TextBox2.Text = "Proin sed nisl enim. Cras in nisl tempus, scelerisque mi id, vulputate arcu. Duis nec mi ac lorem pretium semper."
                Case "Manageable risk":
                    TextBox2.Text = "Fusce eu nisi sollicitudin, pharetra nibh sed, vestibulum neque. Praesent a auctor turpis. Mauris posuere vitae justo ac mollis."
                Case "For Noting Only":
                    TextBox2.Text = "Sed eu eros ipsum. Ut posuere id magna eu sollicitudin. Nunc suscipit tempor egestas. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos."
                Case Else
                    TextBox2.Text = ""
            End Select
        End If
    Next i
lbl_Exit:
    Exit Sub
End Sub

Private Sub UserForm_initialize()

Dim myArray As Variant
    myArray = Split("Requires further investigation|Urgent review|" _
                    & "Manageable risk|For Noting Only", "|")
    TextBox2.MultiLine = True
    TextBox2.ScrollBars = fmScrollBarsVertical
    ListBox1.List = myArray
lbl_Exit:
    Exit Sub
End Sub