è corretto così?

Combo6.List (FSO.OpenTextFile(DBP & "\vouchers" & Dir$ & ".txt", ForReading).ReadAll)

??