This is the example that MSDN provided for COMMAND().

What is COMMAND() and how do you use this Function below?

Thanks

Code:
Function GetCommandLine(Optional MaxArgs)
  'See if MaxArgs was provided.
  If IsMissing(MaxArgs) Then MaxArgs = 10
  'Make array of the correct size.
  ReDim ArgArray(MaxArgs)
  Dim InArg, NumArgs
  NumArgs = 0: InArg = False
  
  'Get command line arguments.
  Dim CmdLine, CmdLnLen
  CmdLine = Command()
  CmdLnLen = Len(CmdLine)
   
  Dim C, I
  'Go thru command line one character
  'at a time.
  For I = 1 To CmdLnLen
     C = Mid(CmdLine, I, 1)
     'Test for space or tab.
     If (C <> " " And C <> vbTab) Then
        'Neither space nor tab.
        'Test if already in argument.
        If Not InArg Then
        'New argument begins.
        'Test for too many arguments.
           If NumArgs = MaxArgs Then Exit For
           NumArgs = NumArgs + 1
           InArg = True
        End If
        'Concatenate character to current argument.
        ArgArray(NumArgs) = ArgArray(NumArgs) & C
     Else
        'Found a space or tab.
        'Set InArg flag to False.
        InArg = False
     End If
  Next I
   
  'Resize array just enough to hold arguments.
  ReDim Preserve ArgArray(NumArgs)
  'Return Array in Function name.
  GetCommandLine = ArgArray()
End Function