Textbox con datos de combobox

Tengo el siguiente código que encontré y lo estoy adaptando para una macro:

Quiero que al seleccionar datos del combobox, el textbox sea llenado con información y adicional otro combobox se cargue con otra información.

Y que el formulario se presente en la hoja 1 con la información que se llenan los Textbox y combobox de otras hojas.

Private Sub ComboBox2_Click()

valor = ComboBox2.Value
Set busca = Sheets("hoja5").Range("a1:a100").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
TextBox3.Value = Range(ubica).Offset(0, 1)
End If
End Sub