Como crear un Boton examinar en VBA e hipervincular la direccion a una celda

Quiero crear un botón que me abra un buscador de archivos y que seleccione un carpeta, que esa dirección que elija se traslade a un TextBox y este cree un hipervinculo en la celda que le asigne.

No tengo ni un código en el cual me pueda ayudar, asi que necesito su ayuda.