macro, excel, búsqueda mediante caja de texto, boton. Range.Find()

luego de introducir la cadena buscar si exhiste nos muestra un msgbox donde nos imprime los datos de 2 columnas a la derecha del rango B1. osea a columna D.

Private Sub Button_buscar_Click()
Dim CadenaBuscar As String
Dim Rango As Range
Dim midato As Range
Dim dato As String
dato = Text_buscar
Set Rango = ActiveSheet.Range("B1:B400")
'Set Midato = Sheets("Hoja1").Range("A1:
On Error Resume Next
Set midato = Rango.Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
MsgBox ("nibiru: _ " & midato.Offset(0, 2).Value)
' hacemos  llenamos las cajas de texto
'TextBox2.Value = midato.Offset(0, 2).Value
Else
MsgBox ("nibiru: _ " & CadenaBuscar)
End If
Set midato = Nothing
   ' Range("A7:I382").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A4:I5"), Unique:=False
End Sub

Lebv