Ayuda con un form y un textbox

Hola amigos tengo un problema tengo un form con textbox lo que hace es buscar un datos en una celdas de excel, mi duda es pueda hacer que haga varias búsquedas en diferentes celdas y me las muestre en los textbox este es el código que tengo

Private Sub CommandButton1_Click()

Dim id_nombre, idbusca As String

Dim file As Integer

file = 1

id_nombre = TextBox1

Do While idbusca <> id_nombre

file = file + 1 i

dbusca = Range("A" & file).Value ====> acá busca la celda pero quiero que busque en varias

If idbusca = Empty Then

MsgBox "No se encuentra datos"

Exit Do

End If

Loop

Dim nom, ap, am As String

nom = Range("B" & file).Value

ap = Range("C" & file).Value

am = Range("D" & file).Value

TextBox2 = nom & " " & ap & " " & am

TextBox3 = Range("E" & file).Value

TextBox4 = Range("F" & file).Value

TextBox5 = Range("G" & file).Value

TextBox6 = Range("QUE" & file).Value

TextBox7 = Range("H" & file).Value

TextBox8 = Range("I" & file).Value

TextBox9 = Range("J" & file).Value

TextBox10 = Range("L" & file).Value

TextBox11 = Range("M" & file).Value

TextBox12 = Range("N" & file).Value

TextBox13 = Range("P" & file).Value

TextBox14 = Range("O" & file).Value

TextBox33 = Range("R" & file).Value

TextBox34 = Range("QUE" & file).Value

TextBox1.SetFocus

End Sub

espero sus respuestas gracias