Imports System.Collections.Generic

Imports System

Public Module Module1

​

    Function CustomComparator(ByVal x As String, ByVal y As String) As Integer

        If x.Equals(y) Then 

            Return 0 

        End If

        Dim iter_x = 0

        Dim iter_y = 0

        While iter_x < x.Length() And iter_y < y.Length() 

            If x.Chars (iter_x) = "\" And y.Chars (iter_y) = " " Then 

                Return -1

            ElseIf x.Chars (iter_x) = " " And y.Chars (iter_y) = "\" Then 

                Return 1 

            ElseIf x.Chars (iter_x) < y.Chars (iter_y) Then

                Return -1 

            ElseIf x.Chars (iter_x) > y.Chars (iter_y) Then 

                Return 1

            End If 

            iter_x = iter_x + 1 

            iter_y = iter_y + 1

        End While 

        If iter_x = x.Length () Then

            Return -1

        Else 

            Return 1

        End If

    End Function

    Public Sub Main()

        Dim a As New List(Of String)

​

        a.Add("a\b\c")

        a.Add("a\b\c\d")

        a.Add("a\b\c d")

        a.Add("a\b\c d\e")

        a.Add("a\b\c\d\f")

        a.Sort(AddressOf CustomComparator)

        For i as Integer = 0 To a.Count-1 

        Console.WriteLine(a (i))

        Next    

    End Sub

 End Module

​

​