Hat sich erledigt. Geht mit dem Command$ Befehl:
Function BefZeileAbrufen(Optional MaxArgs)
' Variablen deklarieren.
Dim C, BefZl, BefZlLng, InArg, I, ZahlArgs
' Feststellen, ob MaxArgs angegeben wurde.
If IsMissing(MaxArgs) Then MaxArgs = 10
' Datenfeld passender Größe erstellen.
ReDim ArgFeld(MaxArgs)
NumArgs = 0: InArg = False
' Befehlszeilenargumente abrufen.
BefZl = Command()
MsgBox BefZl
BefZlLng = Len(BefZl)
' Befehlszeile Zeichen für Zeichen
' durchgehen.
For I = 1 To BefZlLng
C = Mid(BefZl, I, 1)
' Auf Leerzeichen oder Tabulatoren prüfen.
If (C <> " " And C <> vbTab) Then
' Weder Leerzeichen noch Tabulatoren.
' Überprüfen ob bereits in Argument enthalten.
If Not InArg Then
' Anfang des neuen Arguments.
' Überprüfen, ob zu viele Argumente verwendet wurden.
If ZahlArgs = MaxArgs Then Exit For
ZahlArgs = ZahlArgs + 1
InArg = True
End If
' Zeichen an aktuelles Argument anfügen.
ArgFeld(ZahlArgs) = ArgFeld(ZahlArgs) + C
Else
' Tabulator oder Leerzeichen gefunden.
' Das InArg-Attribut auf False festlegen.
InArg = False
End If
Next I
' Größe des Datenfeldes neu bestimmen, so daß es
' gerade alle Argumente aufnehmen kann.
ReDim Preserve ArgFeld(ZahlArgs)
' Datenfeld in Funktionsnamen zurückgeben.
BefZeileAbrufen = ArgFeld()
End Function