Procedimiento o Función o que?

[caritaje]

He checado lo que me han sugerido pero, se me ha presentado otra duda les comento como esta mi codigo:

PUBLIC FUNCTION CajaDialgo()

dim strRuta as String
'Aqui abro mi file dialog y hago las operaciones
'guardo en la variable strRuta la direccion del archivo selñeccionado en este caso son imagenes
END FUNCTION

PRIVATE SUB Boton_click()

txtImage=CuadroDialogo()
Image.Picture=txtImage

'¿Como le hago para traer el resultado de esa funcion, la cadena strRuta?

END SUB

Asi solo me abre el cuadro de dialogo pero no almaceno la ruta del archivo selecionado..