Excel - Varios Textbox relacionados con Combobox en Formulario

'Escenario actual

sub combo1_change()

'codigo pára hacer el buscarv

buscarv

etc

textbox el que sea = valor encontrado

etc

end sub

'Escenario futuro

sub combo1_change()

'Cada combo del evento change colocas

buscarvalorXCombo me.combobox1, me.textbox1 ' los que correspondan...

end sub

sub buscarvalorXCombo(c as combobox, t as textbox)

'codigo pára hacer el buscarv

' buscarv y todo lo que sea cuando indicques el combo ya no poens el nombre sino 

buscarv donde el valor sea  C.value 

'Y cuando asignes el valor al texto 

t.text= valor encontrado

etc

end sub

Sub TsDetalle(C As ComboBox, T As TextBox, R As TextBox)

Dim Ts As String

Dim Celda As Range

Dim F1 As Integer

Sheets(2).Select

F1 = Application.WorksheetFunction.CountA(Sheets(2).Range("g:g"))

Ts = C.Value

For Each Celda In Range("g2:g" & F1)

            If Celda = Ts Then

                    T.Value = Celda.Offset(0, 2)

                    R.Value = Celda.Offset(0, 1)

                    Exit For

            End If

Next Celda

End Sub

Private Sub Frame3_Click()

[code]TsDetalle Me.ComboBox2, Me.TextBox8, Me.TextBox9

TsDetalle Me.ComboBox4, Me.TextBox15, Me.TextBox16

TsDetalle Me.ComboBox6, Me.TextBox22, Me.TextBox23

TsDetalle Me.ComboBox8, Me.TextBox29, Me.TextBox30

TsDetalle Me.ComboBox10, Me.TextBox36, Me.TextBox37

TsDetalle Me.ComboBox12, Me.TextBox43, Me.TextBox44

TsDetalle Me.ComboBox14, Me.TextBox50, Me.TextBox51

TsDetalle Me.ComboBox16, Me.TextBox57, Me.TextBox58

TsDetalle Me.ComboBox18, Me.TextBox64, Me.TextBox65

TsDetalle Me.ComboBox20, Me.TextBox71, Me.TextBox72

TsDetalle Me.ComboBox22, Me.TextBox78, Me.TextBox79

TsDetalle Me.ComboBox24, Me.TextBox85, Me.TextBox86

TsDetalle Me.ComboBox26, Me.TextBox92, Me.TextBox93

TsDetalle Me.ComboBox28, Me.TextBox99, Me.TextBox100

TsDetalle Me.ComboBox30, Me.TextBox106, Me.TextBox107

End Sub