求助！将每个文字的ASCII码减去1，帮我还原20年前的文字！
20年前我学VB，用VB建立一个文本框，在文本框中输入汉字，然后点击保存时运行程序。该程序就用了一个if循环， 第一步：逐个读取文本框内字符。 第二步：将每个字符的“ASCII码+1”，直到读取完毕。 第三步：新建TXT文本，追加的方式保存。
下面这是一段当时程序运行结果（TXT文件很长，下面这是一小段）：
!!!!!斡既的斡何{n塔萌揩式皆处－嗜咱2!:!:!:!碾:!悦忿稻2!1!悦3!1!戎蛆蕴烩织煎－）斡蚕荚鄙三什－塔萌督赖蹬－布肢嗜me缓嗜{n缓古砾撂斡壹惧＊塔萌叁各井长赖尚皖渍媳－亡皓哪赖蹬娜磐唯奇－{n耗向何srv厦捂自奇－斡硕撂惧照加忍壹订盈·妄撂塔萌增玫罕斡罕戒戒蹬撂·）
我现在想还原20年前的回忆。恳请哪位大神帮忙写个可在Win10下运行的程序！！！
