Dim strContents As String
        Dim objReader As StreamReader
        Dim MyArray As String()
        Dim a As Integer
        Dim Count As Integer
        objReader = New StreamReader("C://Index4.txt")
        strContents = objReader.ReadToEnd()
        objReader.Close()
        For Count = 0 To 67
            Dim rowNew As New TableRow()
            MyArray = Split(strContents, ",")
            For a = 0 To UBound(MyArray)
                Dim celNew As New TableCell()
                'Dim rowNew As New TableRow()
                'MyArray = Split(strContents, ",")
                celNew.Text = MyArray(a)
                Label11.Text = celNew.Text
                rowNew.Cells.Add(celNew)
            Next
            Table1.Rows.Add(rowNew)
        Next