可以将文本读取到TEXT或者变量

模块代码：

        Public Function duwenben(ByVal xlujing As String) '读文本 

            If Dir(xlujing) <> "" Then

                Open xlujing For Binary As #1

                   duwenben = Input(LOF(1), 1)

                Close #1

            Else

               Call baocuo(xlujing & "不存在")

            End If

        End Function

窗体调用：

text1.text=duwenben(App.Path & "/222.ini")