I think the problem is at this line

Entries = Split(CommonDialog1.FileName, vbNullChar)

The vbNullChar should only be at the end of CommonDialog1.FileName

The proper delimiter, if I recall, is the space character.
Entries = Split(CommonDialog1.FileName, " ")

Replace that and see if it solves your problem, I'm pretty sure it will