Ayuda con Ordenamiento de numeros por bloques

[Aquaventus]

Hola Totto3 podrias hacer algo como esto :

Código vb:

'Estas variables tienen que ser global
 Dim texto As String
    Dim inicial As Int64
    Dim siguiente As Int64
    Dim anterior As Int64
 

Código vb:

'Este objmn.LISTADOMODULO() es un metodo mio con el que lleno luego a mi datagridview
Dim dtt As DataTable = objmn.LISTADOMODULO()
        Dim num As Int64
 
        For i = 0 To dtt.Rows.Count - 1
            If i = 0 Then
                inicial = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                texto = "Del " & inicial.ToString()
            Else
                If i = dtt.Rows.Count - 1 Then
                    num = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                    anterior = Convert.ToInt64(dtt.Rows(i - 1).Item("NREMISION").ToString)
                    If anterior = (num - 1) Then
                        texto = texto & " al " & inicial.ToString()
                    Else
                        texto = "Del " & inicial.ToString() & " al " & inicial.ToString()
                    End If
                Else
                    num = Convert.ToInt64(dtt.Rows(i).Item("NREMISION").ToString)
                    siguiente = Convert.ToInt64(dtt.Rows(i + 1).Item("NREMISION").ToString)
                    If (num + 1) <> siguiente Then
                        texto = texto & " al " & inicial.ToString()
                        ListBox1.Items.Add(texto)
                        texto = "Del " & siguiente.ToString()
                    End If
                End If
                
            End If
        Next