Sub Parser_EndElement(Uri As String, Name As String, Text As StringBuilder)
If Parser.Parents.IndexOf("item") > -1 Then
If Name = "title" Then
Title = Text.ToString.Trim
Else If Name = "link" Then
Link = Text.ToString()
Else If Name = "pubDate" Then
If Text.ToString.Trim.Length = 0 Then
PubDate = ""
Else
PubDate = ElaboraData(Text.ToString)
End If
Else If Name = "description" Then
Description = Text.ToString '2816 characters ********** !!!!!!!!!!!
End If
End If
If Name = "item" Then
RSS.Add(CreateListItem(Title, Description, PubDate, imgLink, RSS.AsView.Width, 140dip), 140dip, Link)
End If
End Sub