Вытащить значения столбцов выбранной записи в Combobox

Private Sub CommandButton1_Click()
    With ComboBox1
         If .ListIndex = -1 Then Exit Sub
         For iColumn = 0 To UBound(.List, 2)
             MsgBox .List(.ListIndex, iColumn), , "Столбец #" & iColumn + 1
         Next
    End With
End Sub
 
Private Sub UserForm_Initialize() 'Исключительно для примера
    With Range("A1").CurrentRegion
         If .Count > 1 Then ComboBox1.List = .Value
    End With
End Sub

Private Sub ComboBox1_Change()
With ComboBox1
Dim i As Long: i = .ListIndex
Caption = .List(i, 0) & " " & .List(i, 1) & " " &  .List(i, 2) & " " &  .List(i, 3)
End With
End Sub

Private Sub ComboBox1_Change()
    With ComboBox1
         If .ListIndex = -1 Then Exit Sub
         For iColumn = 1 To 4
             Controls("TextBox" & iColumn) = .List(.ListIndex, iColumn - 1)
         Next
    End With
End Sub
 
Private Sub UserForm_Initialize()
    With Worksheets("Лист1")
         ComboBox1.List = .Range(.Cells(2, 1), .Cells(.Rows.Count, 4).End(xlUp)).Value
    End With
End Sub

Private Sub ComboBox1_Change()
    With ComboBox1
         If .ListIndex = -1 Then Exit Sub
         TextBox1 = .List(.ListIndex, 0)
         TextBox2 = .List(.ListIndex, 1)
         TextBox3 = .List(.ListIndex, 2)
    End With
End Sub