Puoi usare il metodo CopyFolder dell'oggetto FileSyStemObject (libreria Microsoft Scripting RunTime)

Dim fso As New FileSystemObject
fso.CopyFolder FolderSource, FolderDestination, True

NB: Tale libreria deve risultare già presente nel S.O. della macchina su cui girerà il tuo CD-Rom, altrimenti l'applicazione darà errore, lo stesso vale per il Run-Time di VB (che però risulta già presente sulle ultime versioni di Windows).
Per ovviare a questo problema dovresti usare un linguaggio che permetta una compilazione inglobando le librerie (come ad esempio C++ o Delphi), oppure acquistare un tool che inserisca nell'eseguibile generato tutte le librerie in uso (ne avevo trovato uno, se ti interessa faccio alcune ricerche).

Tienimi aggiornato...
Ciao!!
:tongue: