no entendi muy bien pero

text1.text = Dir("C:\WINDOWS\archivo.exe")

 

mm... deberias explicarte mas, el archivo esta en ejecucion?? el archivo sera el  mismo que estas `progrmando??  ¿?¿?

ups..lo siento pues lo que quiero es un botón como el de Examinar que hay en tantos programas..que lo que hago es ir moviendome por carpetas y archivos, le doy a seleccionar al que tengo en C:\WINDOWS que se llama archivo.exe y lo que hace al darle click es poner en un textbox la ruta completa osea C:\WINDOWS\archivo.exe

Gracias, espero que así se entienda más.

Muy facil, vas a proyecto>componentes eliges Microsoft Common Dialog Control 6.0 y aceptar. Te aparecera una nueva herramienta, la agregas al proyecto, pones un boton y un textbox y listo:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub