private Sub Sort(ByRef lst as List(Of String), asc as Boolean)
lst.Sort()
If (Not asc) Then
lst.Reverse()
End If
End Sub
'Utilisation
Dim lst As List(Of String) = New List(Of String)
lst.Add("CodeS-SourceS")
lst.Add("VB")
lst.Add("C#")
lst.Add("Assembler")
lst.Add("Python")
lst.Add("Java")
' Desc
Me.Sort(lst, False)