Module Module1 Sub Main(ByVal cmdArgs() As String) If Environment.GetCommandLineArgs.Length > 0 Then For Each strArg As String In Environment.GetCommandLineArgs 'Process the arguments here. Console.WriteLine(strArg) Next strArg End If End Sub End Module