一。覆盖写入文本

模块：

        Public Function xiewenben(ByVal yy As String, ByVal xlujing As String) 

            Open xlujing For Output As #1  '保存内容文件

               Print #1, yy

            Close #1

            xiewenben = "覆盖保存文本完毕"

        End Function

 调用代码：'覆盖写入文本  xiewenben(text2.text,App.Path & "/222.ini")

二。追加写入文本

模块：

        Public Function xiewenben_zhuijia(ByVal yy As String, ByVal xlujing As String) '  

            Open xlujing For Append As #1  '保存内容文件

               Print #1, yy

            Close #1

            xiewenben_zhuijia = "追加保存文本完毕"

        End Function

窗体调用代码：xiewenben_zhuijia(text2.text,App.Path & "/222.ini")

三。不换行追加写入文本

模块：

        Public Function xiewenben_zhuijiab(ByVal yy As String, ByVal xlujing As String) '  

            Open xlujing For Append As #1  '保存内容文件

               Print #1, yy;  ' 这里 ； 代表不换行  也可以追加其他符号 比如 yy & "-";

            Close #1

            xiewenben_zhuijiab = "追加保存文本完毕"

        End Function

窗体调用代码：xiewenben_zhuijiab(text2.text,App.Path & "/222.ini")