如何才能在VB程序运行时自动生成Dll？

引用FileSystemObject后，用OpenTextFile读取文件所有字符到变量，然后又用CreateTextFile写入变量的值发现还原的文件字符丢失了。
原来文件大小：75776
读取文件大小：73347
写入文件大小：73347
还原文件大小：73347
丢失文件字符：2429

代码如下：
MsgBox FSO.GetFile("C:\sh.dll").Size 返回75776
Dim aaa
aaa = FSO.OpenTextFile("C:\Program Files\Hario\Access\sh.dll").ReadAll
msgbox Len(aaa) 返回73347，此处已经丢失！

FSO.CreateTextFile("C:\sh2.dll").Write (aaa)
MsgBox FSO.GetFile("C:\sh2.dll").Size 返回73347.

总共丢失字节2429，请问这是为何？如何才能在VB程序运行时自动生成Dll？
xa87，请问如何自动释放出来？自动注册，再自动引用？

VB程序放在服务器上自动运行 vb怎么写自动运行程序 在电脑开机时 总会把很多文件和程序自动运行 如何才能让他们不自动运行 可以关掉 请问如何在vb程序设计中使程序运行时能使文本框在输出数据时实现自动换行 我的电脑里经常有一些不必要的程序在自动运行，如何才能让它不再自动运行？ 如何用VB实现让程序在关闭后自动运行 vb在系统中自动运行 VB程序在其它电脑上运行 用VB怎么编写开机自动运行程序 如何用VB设置程序随系统启动自动运行？