adding files with unicode names to zip file [vb 2005]

hi ..

iam trying to zip some document files with arabic names into one zip file ..

the code is working well, but when adding the files to the zip file, it changes the names of the document files to some strange chars,

is there anyway to correct this problem !?

thank you ..

p.s: if i tried the bzip2 code it works well, so it adds the file to the .bz file with the correct file names, but i didn`t manage to rewrite the code to zip more than one file ..anyone can help me please ?:)
 here`s the code :

Dim fsInputFile As FileStream, fsBZ2Archive As FileStream
            fsInputFile = File.OpenRead(txtFileName.Text) ' how to read a second file let`s say it is in txtfilename2.text  to add it to bz?
            fsBZ2Archive = File.Create(txtFileName.Text + ".bz")
            BZip2.Compress(fsInputFile, fsBZ2Archive, 4026)
            fsInputFile.Close()