Imports System

Imports System.Data

Imports System.Xml

Imports System.Data.Linq

Imports System.Data.DataSetExtensions

Imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim dt as DataTable = new DataTable

        dt.Columns.Add("col1")

        dt.Rows.Add("1000000")

        dt.Rows.Add("0010000")

        dt.Rows.Add("0100000")      

        Dim result = dt _

            .AsEnumerable() _

            .Select(Function(r) r.Field(Of String)(0)) _

                .Select(Function(s) string.Join("", s.Select(Function(x, i) _

                    If(x = "0", "0", (i + 1).ToString())))).ToList()

        For Each i As String in result

            Console.WriteLine(i)

        Next

    End Sub

End Module