Vorschlag:

Code:
        Dim CsvString As String = ""        'Input – Key-Value String 
        Dim CsvRef As Integer
        Dim CsvLen As Integer
        Dim Key As String
        Dim Val As String


        If LineArgument = "" Then                   'Line Argument leer -->Commando Line auslesen-
            For Each Argument As String In My.Application.CommandLineArgs   
                If CsvString.Length = 0 Then
                    CsvString = Argument
                Else
                    CsvString = CsvString & "," & Argument
                End If
            Next
            MsgBox("Start Argument für die Verarbeitung:<" & CsvString & ">End Argument")
        Else
            CsvString = LineArgument
            MsgBox("Start Argument für die Verarbeitung:<" & CsvString & ">End Cmdline")
        End If
[Mecker]
"DoCommand" sollte einen Wert zurückgeben, OK / Kenn ich nicht
bzw. "parsline" eigentlich auch.
Denn wenn weder da noch dort was sinnvolles drinsteht (Situation "new") ist z.B. jede weitere Aktion zweifelhaft.
[/Mecker]