Private Function msTest(ByVal sFile As String) As String
 
        Dim sOut As String
        Dim sFullPath As String = My.Settings("WorkPath") & "\" & sFile
 
        Dim xmlList As New Xml.XmlDocument()
        xmlList.Load(sFullPath)
        For Each node As Xml.XmlNode In xmlList.DocumentElement.ChildNodes
            For Each subNode As XmlNode In node.ChildNodes
                If subNode.Attributes.Count > 0 Then
                    sOut = sOut & subNode.Attributes(0).Value & ": " & _
                      subNode.InnerText & vbCrLf
                Else
                    sOut = sOut & subNode.Name & ": " & subNode.InnerText & _
                      vbCrLf
                End If
            Next
        Next
 
        msTest = sOut
 
    End Function