Function XMLReader(ByVal str_XmlFilePath As String) As String
 
    Dim Xml_doc As XmlDocument
    Dim str_Xml As String
    Xml_doc = New XmlDocument
    Xml_doc.Load(str_XmlFilePath)
 
    str_Xml = Xml_doc.InnerText
 
    Return str_Xml
 
End Function