Agregar información a un textbox, Seleccionando un nombre en un Combobox

El problema que tengo es que cuando selecciono un nombre en combobox1 y después presionar commandbutton1 me arroja la primera información que encuentra del nombre en la fila A, y solo me arroja un solo dato,

Este es el código que tengo:

Private Sub CommandButton1_Click()
Dim id_nombre, idbusca As String
Dim fila As Integer
fila = 5
id_nombre = ComboBox1
Do While idbusca <> id_nombre
fila = fila + 1
idbusca = Range("G" & fila).value
If idbusca = Empty Then
MsgBox "No se ha encontra informacion"
Exit Do

End If

Loop
Dim nom As String
nom = Range("G" & fila).value
TextBox3 = nom & "" & ap & "" & am
TextBox1 = Range("A" & fila).value
End Sub

Private Sub UserForm_Initialize()
Dim rango, celda As Range
Set rango = Worksheets("Requis").Range("M6:M11")
For Each celda In rango
ComboBox1.AddItem celda.value
Next celda
End Sub

Lo que ocupo es que al seleccionar el nombre en el combobox1 y darle buscar, me arroje pero toda la información de tal nombre que se encuentra en toda esa fila, ya sea hasta A100