Intanto nella CreateObiect il nome della classe va tra " " ...

La Dir$ restituisce in maniera ciclica i nomi dei file contenuti in una cartella ...

Scrivi

Print Dir$("*.*")

e poi, ripetutamente

Print Dir$

finche' restituisce nomi (trovi tutto nell'help)