大概这样:
Dim s1 = FileSys.ReadAllText("文件1")
Dim s2 = FileSys.ReadAllText("文件1")
Dim s3 = s1+s2
替换s3中内容
FileSys.WriteAllText("文件3",s3)