Visual Basic para Aplicaciones - Bucle While

Private Sub CommandButton1_Click()

    Dim fila, columna As Integer

    fila = 1

    columna = 1

    While Cells(fila, columna) <> TextBox1.Text '

            fila = fila + 1

   Wend

    TextBox2.Text = Cells(fila, 2) + " " + Cells(fila, 3) + " " + Cells(fila, 4)

    TextBox3.Text = Cells(fila, 5)

    TextBox4.Text = Cells(fila, 6)

    TextBox5.Text = Cells(fila, 7)

    TextBox6.Text = Cells(fila, 8)

End Sub

'//El tipo de variable se debe agregar a c/u de las variables

'//Al trabajar con filas es mejor declarar de tipo Long ya que Integer suele quedar fuera de rango 

Dim fila As Long, columna As Integer

fila = 1

columna = 1

Do While Cells(fila, columna) <> TextBox1.Text

   If IsEmpty(Cells(fila, columna)) Then Exit Do

   fila = fila + 1

Loop