Varios combobox a textbox

Hola expertos:
Mi pregunta es la siguiente; tengo en un formulario 2 combobox y 4 textbox: cuando busco cierta información el el combobox 1, me muestra la información en el textbox1 y texbox2
Ejemplo:
Tengo los datos en una hoj de excel así
    A B C
Pedro luis carlos
Entonces en el combobox selecciono PEDRO y en el textbox 1 me aparece LUIS Y en el textbox2 CARLOS esto lo tengo mediante el siguiente código
Private Sub ComboBox1_Change()
On Error Resume Next
fil1 = Application.WorksheetFunction.Match(ComboBox1, Columns("a:a"), 0)
TextBox1 = Range("c" & fil1)
TextBox2 = Range("b" & fil1)
End Sub
Ahora lo que pretendo hacer es lo mismo pero con el combobox2 y no lo logro; los datos se cargan en el combobox1 y 2 bien pero en el textbox3 y textbox 4 no aparece nada.
el codigo que tengo en el userform para cargar mis datosen el combobox es el siguiente:
Dim strRango1 As String
Sheets("datos").Select
strRango = "a3:a" & Format(Range("a65500").End(xlUp).Row)
ComboBox1.RowSource = strRango
End Sub
¿He intentado duplicar el código como lo muestro a continuación para cada uno de los combobox y no me cargan los datos en los textbox 3 y 4 que puedo hacer?
Private Sub ComboBox1_Change()
On Error Resume Next
fil = Application.WorksheetFunction.Match(ComboBox1, Columns("a:a"), 0)
TextBox1 = Range("c" & fil)
TextBox2 = Range("b" & fil)
End Sub
Private Sub ComboBox2_Change()
On Error Resume Next
fil1 = Application.WorksheetFunction.Match(ComboBox2, Columns("a:a"), 0)
TextBox3 = Range("b" & fil1)
TextBox4 = Range("d" & fil1)
End Sub
Dim strRango1 As String
Sheets("datos").Select
strRango = "a3:a" & Format(Range("a65500").End(xlUp).Row)
ComboBox1.RowSource = strRango
End Sub
Dim strRango As String
Sheets("datos").Select
strRango = "b3:b" & Format(Range("b65500").End(xlUp).Row)
ComboBox2.RowSource = strRango
End Sub
Gracias y espero su pronta respuesta