Invalid character in the given encoding. Error

Watch out for those two lines that got wrapped; both pertain to Me.lblStatus.Text and should be only one line each.

ajitha75, Great tip!  I was able to read but I still had binaries in lieu of the french accents.

I used this fonction:
 Public Function ProcessRSSItem(ByVal rssURL As String) As String

        'Definition de la valeur par défaut de retour
        ProcessRSSItem = "Serveur injoignable!"

        'test de la connexion au serveur xml
        Dim instance As New Devices.Network
        'Dim address As Uri
        Dim returnValue As Boolean = True
        'Try
        '    returnValue = instance.Ping(url)
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try


        'Tentative de résolution de l'affichage aléatoire des flux RSS
        'Dim returnValue As Boolean = False
        'Try
        '    returnValue = instance.Ping(url)
        'Catch ex As Exception
        '    MsgBox(ex.Message)
        'End Try

        If returnValue Then
            Try
                ProcessRSSItem = ""
                Dim myRequest As WebRequest = System.Net.WebRequest.Create(rssURL)
                Dim myResponse As WebResponse = myRequest.GetResponse()

                Dim rssStream As Stream = myResponse.GetResponseStream()
                Dim rssDoc As New XmlDocument()
                rssDoc.Load(rssStream)

                Dim rssItems As XmlNodeList = rssDoc.SelectNodes("rss/channel/item")

                Dim title As String = ""
                Dim link As String = ""
                Dim description As String = ""
                Dim i As Integer

                For i = 0 To rssItems.Count - 1
                    Dim rssDetail As XmlNode

                    rssDetail = rssItems.Item(i).SelectSingleNode("title")
                    If rssDetail.Equals(Nothing) = False Then
                        title = rssDetail.InnerText
                    Else
                        title = ""
                    End If

                    rssDetail = rssItems.Item(i).SelectSingleNode("link")
                    If rssDetail.Equals(Nothing) = False Then
                        link = rssDetail.InnerText
                    Else
                        link = ""
                    End If

                    rssDetail = rssItems.Item(i).SelectSingleNode("description")
                    If rssDetail.Equals(Nothing) = False Then
                        description = rssDetail.InnerText
                    Else
                        description = ""
                    End If

                    ProcessRSSItem += "" + title + ""
                    ProcessRSSItem += description + ""

                Next
            Catch ex As Exception
                ProcessRSSItem += "Le serveur est injoignable. Veuillez vérifier votre connexion internet !"
            End Try
        End If

    End Function

And it worked great.