在指定目录下(C:\txt\)，有若干个txt文件。

帮忙写个自定义函数，假如命名为：测试函数

此函数功能实现：测试函数(文件名)，

例：过程中调用：msgbox 测试函数(测试), 则在弹出的对话框上，显示指定路径下测试.txt文件内的所有内容。
内容格式完全不改变（主要是换行符，空格，不能被取消）

求解，谢谢！(txt文件，打开取值后，不保存即时关闭。如果能在任务栏隐藏打开的窗口就最好了。)

上传几个测试的Txt文件：

[ 本帖最后由 opelwang 于 2015-4-6 10:55 编辑 ]

啊，伸手党！

是的，望版主帮忙，谢谢。

小case，看哪个版主有空帮你弄弄。我没空诶。

我有现成的代码，但现在在手机上。

能放上来，学习一下吗？
谢谢！

Option Explicit

Public Function 打开文件(cs As String) As String
    On Error Resume Next
Dim fj As Long
    fj = FreeFile()             '产生下一文件号
    Open cs For Binary As #fj       '打开文件
        '直接读整个文件的所有的内容,按字节读,并转换为 Unicode 的VB默认字符串类型
        打开文件 = StrConv(InputB$(LOF(fj), #fj), vbUnicode)
    Close #fj
End Function

Public Function 保存文件(cs As String, filename As String) As String
    On Error Resume Next
    Dim fj As Long
    fj = FreeFile()             '产生下一文件号
    Open filename For Output As #fj        '打开文件
        Print #fj, cs
    Close #fj
End Function

感谢，学习了。