Public Shared Function MFC_FSTextFileRead(ByVal FilePath_Name As String) As String
        Try
            If Dir(FilePath_Name) <> "" Then
                Dim FileReader As System.IO.FileStream = System.IO.File.Open(FilePath_Name, System.IO.FileMode.Open)
                Dim FileByte(FileReader.Length - 1) As Byte
                FileReader.Read(FileByte, 0, FileReader.Length)
                Dim MyEncoder As System.Text.Encoding = System.Text.Encoding.Default
                MFC_FSTextFileRead = New String(MyEncoder.GetChars(FileByte))
                FileReader.Close()
            Else
                Return ""
            End If
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Shared Sub MFC_TextFileWrite(ByVal FilePath_Name As String, ByVal tmp As String)
        Dim stW As System.IO.StreamWriter
        Dim FS As System.IO.FileStream
        Try
            If Dir(FilePath_Name) <> "" Then
                FS = New System.IO.FileStream(FilePath_Name, System.IO.FileMode.Append)
            Else
                FS = New System.IO.FileStream(FilePath_Name, System.IO.FileMode.CreateNew)
            End If
            stW = New System.IO.StreamWriter(FS)
            stW.WriteLine(tmp)
            stW.Close()
        Catch ex As Exception
        End Try
    End Sub