Hi ... were you able to get this resolved?  I'm running into the same issue while trying to upgrade to 5.1.4

Its a custom module that we built ...

An example of the The XML File that is being read
----------------------------------------------------------------------
<CurrentProgramInfo>
 <Title>The Last Little Big Horn</Title>
 <Duration>00:28:29</Duration>
 <ElapsedTime>00:22:08</ElapsedTime>
 <Author>Pastor Doug Batchelor</Author>
 <Copyright>Amazing Facts 2009, www.amazingfacts.org</Copyright>
 <FileName>afp56.wmv</FileName>
 <Description>Amazing Facts Presents</Description>
 <PlaylistID>2</PlaylistID>
</CurrentProgramInfo>

A snippet of the code

----------------------------------------------

Dim strXMLFile As String = Me.XMLSource
Dim objXMLTR As New XmlTextReader(strXMLFile)
Dim ProgramAttribute As String = Nothing
Dim FileName As String = Nothing
Dim blnGotMetaData As Boolean = False
Dim bNested As Boolean
Dim PlaylistID As Integer = 0

lblTitle.Text = ""
lblAuthor.Text = ""
lblDuration.Text = ""
lblCopyright.Text = ""
lblDescription.Text = ""
FileName = ""

'~~~ READ METHOD LOOPS THROUGH THE XML STREAM ~~~
Do While objXMLTR.Read
    If objXMLTR.NodeType = XmlNodeType.Element Then
        bNested = True
        ProgramAttribute = objXMLTR.Name

    ElseIf objXMLTR.NodeType = XmlNodeType.Text Or objXMLTR.NodeType = XmlNodeType.CDATA Then
        bNested = False

        Select Case UCase(ProgramAttribute)
            Case "TITLE"
lblTitle.Text = objXMLTR.Value & "<br>"
blnGotMetaData = True

If objXMLTR.Value.length < 12 Then
    blnGotMetaData = False
End If

            Case "AUTHOR"
lblAuthor.Text = objXMLTR.Value & "<br>"

            Case "DURATION"
lblDuration.Text = "Duration: " & objXMLTR.Value & "<br>"

            Case "ELAPSEDTIME"
lblElapsedTime.Text = "Elapsed Time: " & objXMLTR.Value & "<br>"

            Case "PLAYLISTID"
PlaylistID = CInt(objXMLTR.Value)

            Case "COPYRIGHT"
lblCopyright.Text = objXMLTR.Value & "<br>"

            Case "FILENAME"
FileName = Left(objXMLTR.Value, InStr(objXMLTR.Value, ".") - 1)
If (WeekdayName(Weekday(Today))) = "Friday" And (Hour(Now)) >= 18 Then
    pnlOffer.visible = False
ElseIf (WeekdayName(Weekday(Today))) = "Saturday" And (Hour(Now)) <= 19 Then
    pnlOffer.visible = False
Else
    Me.GetProgramOffer(FileName)
End If

            Case "DESCRIPTION"
lblDescription.Text = objXMLTR.Value & "<br>"
        End Select

        ProgramAttribute = ""
    End If
Loop

objXMLTR.Close()