vb.net how do i add long text into csv
<p>hello this is my firs thread , 
i'm trying to convert description of this page (<a href="https://www.tokopedia.com/indoislamicstore/cream-zaitun-arofah" rel="nofollow">https://www.tokopedia.com/indoislamicstore/cream-zaitun-arofah</a>)
with regex and replace <code>&lt;br/&gt;</code> tag with new line and convert it to csv .</p>

<p>the datagridview it's alright but the csv got screwed</p>

<p>this is my code :</p>

<pre><code>Dim dskrip As New System.Text.RegularExpressions.Regex("&lt;p itemprop=""description"" class=""mt-20""&gt;(.*?)\&lt;\/p&gt;\&lt;\/div&gt;")
        Dim dskripm As MatchCollection = dskrip.Matches(rssourcecode0)

        For Each itemdskrm As Match In dskripm
            getdeskripsinew = itemdskrm.Groups(1).Value
        Next
Dim deskripsinew As String = Replace(getdeskripsinew, ",", ";")
        Dim deskripsitotal As String = Replace(deskripsinew, "&lt;br/&gt;", Environment.NewLine)
        '   ListView1.s = Environment.NewLine &amp; deskripsinew
        txtDeskripsi.Text = deskripsitotal
        datascrapes.ColumnCount = 5
        datascrapes.Columns(0).Name = "Title"
        datascrapes.Columns(1).Name = "Price"
        datascrapes.Columns(2).Name = "Deskripsi"
        datascrapes.Columns(3).Name = "Gambar"
        datascrapes.Columns(4).Name = "Total Produk"
        Dim row As String() = New String() {getname, totalprice, deskripsitotal, directoryme + getfilename, "10"}
        datascrapes.Rows.Add(row)
        Dim filePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) &amp; "\" &amp; "Tokopedia_Upload.csv"
        Dim delimeter As String = ","
        Dim sb As New StringBuilder
        For i As Integer = 0 To datascrapes.Rows.Count - 1
            Dim array As String() = New String(datascrapes.Columns.Count - 1) {}
            If i.Equals(0) Then
                For j As Integer = 0 To datascrapes.Columns.Count - 1
                    array(j) = datascrapes.Columns(j).HeaderText
                Next
                sb.AppendLine(String.Join(delimeter, array))
            End If
            For j As Integer = 0 To datascrapes.Columns.Count - 1
                If Not datascrapes.Rows(i).IsNewRow Then
                    array(j) = datascrapes(j, i).Value.ToString
                End If
            Next
            If Not datascrapes.Rows(i).IsNewRow Then
                sb.AppendLine(String.Join(delimeter, array))
            End If
        Next
        File.WriteAllText(filePath, sb.ToString)    
</code></pre>

<p><a href="http://i.stack.imgur.com/sSZyN.png" rel="nofollow">this is the csv file</a></p>