Private Sub UserForm_Initialize()
Dim c As Range
With ListBox1
.ColumnCount = 3
For Each c In Range('a1:a8')
.AddItem c
.List(.ListCount - 1, 1) = c.Offset(0, 1)
.List(.ListCount - 1, 2) = c.Offset(0, 2)
Next c
End With
End Sub