vb.net读取文本文件函数

Function getTxtString(ByVal mFileName As String) As String
    '读取文本文件
    FileOpen(1, mFileName, OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
    Dim mLine As String

    Do While Not EOF(1)
        mLine = LineInput(1)
        getTxtString = getTxtString & mLine
    Loop
    FileClose(1)
End Function