Option Explicit
Private Sub ListBox1_Click()
With ListBox1
If .ListIndex <> -1 Then
TextBox1 = .List(.ListIndex, 1)
TextBox2 = .List(.ListIndex, 2)
End If
End With
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 3
.ColumnWidths = "; 0; 0"
.List = Range("A2:C8").Value
End With
End Sub