Creo que no es necesario hacer publico nada, puedes hacer lo siguiente:
Código:
dim frm2 As new form2
addhandler frm2.closed, addressof frm2_closed
frm2.show()
...
private sub frm2_closed(ByVal sender As Object, ByVal e As EventArgs)
buscar()
end sub
Saludos