VB, ¿cómo importar los nombres de todos los archivos de una carpeta a un archivo txt o excel?

abra app.path amp "\dir.txt" para obtener la salida como #1

d=dir("d：\tmp\*.*")

hacer hasta d=""

imprimir #1, d

d=dir

bucle

cerrar #1

Lo anterior es escribir todos los nombres de archivos en la carpeta D:\tmp en el archivo dir.txt en el directorio actual