Imports System.Collections Module modMain Sub Main() Dim oArgs As New ArrayList(Environment.GetCommandLineArgs()) Dim I As Integer With oArgs .RemoveAt(0) .Sort() For I = 0 To .Count - 1 Console.WriteLine(.Item(I)) Next End With End Sub End Module