strAlles = Command$()
Dim strParameter(10) As String 'maximal 11 Parameter
n = 0 'erster Parameter
For i = 1 To Len(strAlles)
    cChar = Mid$(strAlles, i, 1) 'Liest einen Buchstaben
    If cChar = " " Then 'nächster Parameter
        n = n + 1
    Else 'Buchstabe der Parametervariable anhängen
        strParameter(n) = strParameter(n) & cChar
    End If
Next i