¿Como Hacer el Ctrl+b en una macro de Excel?

Estoy realizando una macro y tengo la barra de tareas bloqueada. Pero necesito el Buscar dato. Ya hice un buscar +b

(Sub Buscar()
rango = "A2:I1048576"
variable = InputBox("Ingrese el Dato a Buscar: ")
If variable = "" Then Exit Sub
Set resultado = Range(rango).Find(variable)
If Not resultado Is Nothing Then
Range(resultado.Address).Select
Else
MsgBox "El Dato que a Ingresado No Existe " 
End If
End Sub)

Pero este no me muestra las opciones de Buscar todo o buscar Siguiente aparte necesito que cuando encuentre el dato resalte la celda para saber en donde se encuentra este dato