Как называется сортировка в приведенном коде

'Сортировка post_array
    Public Function sort_post_array()
        Dim buf_jj As Integer = -1
        Dim ii As Integer = 0
        Dim jj As Integer = 0
        While (ii < 11)
            If (post_array(ii, 0) <> "") Then
                If (buf_jj = -1) Then
                    If (post_array(ii, 0) = post_array(ii + 1, 0)) Then
                        ii = ii + 1
                    Else
                        jj = ii
                        ii = ii + 2
                        buf_jj = 1
                    End If
                Else
                    If (post_array(jj, 0) = post_array(ii, 0)) Then
 
                        post_array(50, 0) = post_array(jj + 1, 0)
                        post_array(50, 1) = post_array(jj + 1, 1)
                        post_array(50, 2) = post_array(jj + 1, 2)
 
                        post_array(jj + 1, 0) = post_array(ii, 0)
                        post_array(jj + 1, 1) = post_array(ii, 1)
                        post_array(jj + 1, 2) = post_array(ii, 2)
 
                        post_array(ii, 0) = post_array(50, 0)
                        post_array(ii, 1) = post_array(50, 1)
                        post_array(ii, 2) = post_array(50, 2)
 
                        ii = ii + 1
                        jj = jj + 1
                    Else
                        ii = ii + 1
                    End If
                End If
                If (ii = 11 And buf_jj <> -1) Then
                    ii = jj + 1
                    buf_jj = -1
                End If
            End If
        End While
        Return 0
    End Function