Dim sParam() As String
Dim i As Integer
 
If Command$ <> "" Then
  sParam = Split(Command$, " ")
  MsgBox CStr(UBound(sParam)) & " Parameter übergeben"
 
  For i = 1 To UBound(sParam)
    MsgBox CStr(i) & ". Parameter: " & sParam(i)
  Next i
End If