adding two columns to vba userform combobox
<p>i have that userform for stock control which used to in or out items, all i want to do to amend the below code to show each item name beside it`s code to make searching items.
Code:</p>

<pre><code>Private Sub ComboBox1_Click()

Dim i As Integer
Dim j As Integer
Dim final As Integer
Dim FINAL2 As Integer

For i = 2 To 1000
    If Hoja5.Cells(i, 1) = "" Then
        final = i - 1
        Exit For
    End If
Next

For i = 2 To 1000
    If Hoja6.Cells(i, 1) = "" Then
        FINAL2 = i - 1
        Exit For
    End If
Next

For i = 2 To final
    If ComboBox1 = Hoja5.Cells(i, 1) Then
        TextBox1 = Hoja5.Cells(i, 2)
        Exit For
    End If
Next

For j = 1 To FINAL2
    If ComboBox1 = Hoja6.Cells(j, 1) Then
        TextBox8 = Hoja6.Cells(j, 3)
        Exit For
    End If
Next

End Sub


Private Sub ComboBox1_Enter()
Dim i As Integer
Dim j As Integer
Dim H As Integer
Dim final As Integer
Dim tareas As String

ComboBox1.BackColor = &amp;H80000005

For i = 1 To ComboBox1.ListCount
    ComboBox1.RemoveItem 0
Next i

For j = 2 To 1000
    If Hoja5.Cells(j, 1) = "" Then
        final = j - 1
        Exit For
    End If
Next

For H = 2 To final
    tareas = Hoja5.Cells(H, 1)
    ComboBox1.AddItem (tareas)
Next
'End If

End Sub
</code></pre>

<p>photo indicating the required amendment</p>

<p><a href="https://i.stack.imgur.com/zZfQP.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/zZfQP.png" alt="this is the main form to be modified"></a></p>

<p>I want it to be like:</p>

<p><a href="https://i.stack.imgur.com/NCaCK.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/NCaCK.png" alt="the result would be like this"></a></p>

<p>sample file </p>

<p><a href="https://www.dropbox.com/s/xkmgi666z0p3y3j/stock%20sample.xls?dl=0" rel="nofollow noreferrer">download sample for the above userform</a></p>