help with code

    Dim ini As New Org.Mentalis.Files.IniReader(settingsf)
        Dim x As New Integer
        Dim y As New String("")
        companycount = ini.ReadString("companies", "countotal")
        x = companycount
        Do While x >= 2
                y = ini.ReadString("list", x.ToString)
                companytxtbox.Items.Add(y)
                datagrid.Columns.Add(x, y)

                Dim getcountbycompany As New Org.Mentalis.Files.IniReader(curshiftfile)
                Dim acounted As New Integer
                If datagrid.Columns.Contains(x) Then
                    acounted = getcountbycompany.ReadString("count", y)
                    Dim isit As New Boolean
                    Dim colco As New Integer

                Do Until isit = True
                    colco = 0
                    If (datagrid.Columns(colco).HeaderText = y) = True Then
                        datagrid.Rows(datagrid.Rows.Count - 1).Cells(x - 2).Value = acounted
                        isit = True
                    Else
                        If colco > 0 Then
                            colco = colco + 1
                        End If
                        isit = False
                    End If
                Loop

            End If
            x = x - 1
        Loop