Function GetCommandLineArgs() As String()
        Dim separators As String = " "
        Dim commands As String = Microsoft.VisualBasic.Interaction.Command()
        Dim args() As String = commands.Split(separators.ToCharArray)
        Return args
    End Function

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx