有哪位大侠对delphi和vb都懂的，麻烦将下面的一段delphi代码换成VB代码。

Question

http://community.csdn.net/Expert/topic/3604/3604894.xml?temp=.767132

Answer 1

其实是很简单的编解码，把所有字符的ASCII码进行一个固定的位移而已；
就是继承了一个文件流对象，覆盖了其中的读、写方法；
楼主还是自己写吧，不难的；
如果你一点也不会，别人给你代码你也不懂，要来何用？以后修改、维护、出错调试都麻烦～

Answer 2

To :xao7n(维也纳nn|实心木头人－石欠RUKYO
我现在是急着用啊，有时间当然要仔细研究了啊