jorgearr respondió:
Al hacer clic debe llamar a un sub y no a SetDialeg() Ej. private sub Boton_Alhacerclic() dim sDir as string sdir = setDialeg() text1=sdir end sub private function setDialog() as string 'aquí va toda tu programación existente ' '********* 'antes de...