Парсинг таблиц с сайта и запись результатов в файл

Imports System.Text.RegularExpressions
Imports System
Imports System.IO
Imports System.Text
 
Public Class Form1
    Dim file As System.IO.StreamWriter
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        file = My.Computer.FileSystem.OpenTextFileWriter("C:\s.txt", True)
        Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.finam.ru/analysis/macroevent/?dind=0&dpsd=125714&fso=date+desc&str=2&ind=491&stdate=27.02.2013&endate=28.01.2014&sema=0&seman=5&timeStep=2")
        Dim response As System.Net.HttpWebResponse = request.GetResponse
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim rssourcecode As String = sr.ReadToEnd
        Dim r As New System.Text.RegularExpressions.Regex("\<td\salign=\x22right\x22\>([-,0-9,\.]+).*?\<\/td\>")
        Dim matches As MatchCollection = r.Matches(rssourcecode)
 
 
        For Each itemcode As Match In matches
            file.WriteLine(itemcode.Groups(1).Value, True)
        Next
        file.Close()
 
    End Sub
 
End Class

Dim _D As String() = (New StreamReader("C:\s.txt").ReadToEnd).Split(vbCrLf)