folios no empleados query

SELECT t1.folio,t2.id_DTE_anulados
  FROM hist_DTE t1 LEFT JOIN dte_anulados t2 ON t1.id_DTE = t2.id_tabla_hist_DTE
  WHERE t1.tipo_DTE=33 AND t1.borrado = 'NO' AND t2.id_DTE_anulados IS NULL
  and t1.folio between 10329 and 10333
  ORDER BY t1.folio ASC

Repartir folios

Private Sub btnRepartirFolios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRepartirFolios.Click

        Dim lista As New ArrayList

        Dim folios As Integer = 76
        Dim porcentaje As Integer

        Dim sucursales() As String = File.ReadAllLines("suc.txt")
        Dim cantidad_sucursales As Integer = sucursales.Length

        Dim restante As Integer = folios
        Dim total_folios As Integer
        Dim p As Integer
        For Each x In sucursales
            p = x.Split(";")(0)

           porcentaje = Math.Truncate(folios * (p / 100))

            If p > 0 AndAlso porcentaje = 0 Then
                porcentaje = 1
            End If
            restante = restante - porcentaje
            lista.Add(porcentaje)
            total_folios = total_folios + porcentaje
            porcentaje = 0
        Next
        If restante >= 0 Then
            While restante > 0
                restante -= 1
            End While
        End If
        lista.Sort()
        lista.Reverse()
        Dim pause As String = ""
    End Sub