Visual Basic para Aplicaciones - problema con comboBox y TextBox

Apreciados expertos, de entrada disculpen por el toxo que les voy a soltar.
Tengo un problema con un comboBox que uso en un UserForm (en realidad el mismo codigo en dos userform distintos) la cosa es que en el primero debe buscar un codigo de articulo de la columna A (1) de la hoja 5 y una vez aceptado me rellena unos textBox con los datos de las colm. que le indico, pero en el userForm 2 debe de hacer lo mismo pero cogiendo los datos de la colm.F (6) , el comboBox funciona bien pero no rellena los textBox He probado todas las combinaciones pero no se que es lo que hago mal ....... en la propiedad BoundColumn he cambiado el 1 por el 6 en el codigo creo que he probado todas las combinaciones y nada no soy capaz de que funcione.
Les adjunto el codigo por si alguien me puede hachar una mano.
Mil gracias por anticipado

------------------------------------------------------
'Aqui busco la ref en el combobox

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

ComboBox1.BackColor = &H80000005

For i = 1 To ComboBox1.ListCount '(si cambio esta linea me coge las ultimas 5 ref de la colm.1 (y no se por que)

'Remove an item from the ListBox.
ComboBox1.RemoveItem 0

Next i

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

'If ComboBox1.ListCount < 1 Then

'ComboBox1.AddItem "-"
For i = 2 To final
tareas = Hoja5.Cells(i, 6)
ComboBox1.AddItem (tareas)
Next

'End If

End Sub

--------------------------------------------------------------------------
Aqui busco rellenar los textBox

Private Sub ComboBox1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer

Dim final As Integer
Dim final2 As Integer
Dim FINAL3 As Integer
Dim FINAL4 As Integer

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

For j = 2 To 10000
If Hoja5.Cells(i, 6) = "" Then
FINAL3 = i - 1
Exit For
End If
Next

For k = 2 To 10000
If Hoja6.Cells(i, 6) = "" Then
final2 = i - 1
Exit For
End If
Next

For m = 2 To 10000
If Hoja5.Cells(i, 6) = "" Then
FINAL4 = i - 1
Exit For
End If
Next

---------------------------------------------------------------------
Mil gracias

Perdon falta un trozo de codigo

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

For j = 2 To FINAL3
If ComboBox1 = Hoja5.Cells(j, 6) Then
TextBox10 = Hoja5.Cells(j, 1)
Exit For
End If
Next

For k = 1 To final2
If ComboBox1 = Hoja6.Cells(k, 1) Then
TextBox2 = Hoja6.Cells(k, 3)
Exit For
End If
Next

For m = 1 To final2
If ComboBox1 = Hoja5.Cells(m, 1) Then
TextBox4 = Hoja5.Cells(m, 7)
Exit For
End If
Next

End Sub

Solucionado me faltaba un val en:

For m = 1 To final2
If val(ComboBox1) = Hoja5.Cells(m, 1) Then
TextBox4 = Hoja5.Cells(m, 7)
Exit For
End If
Next

Gracias de todos modos