   Else
            sArgs(cArg) = Mid$(sCommand, iPos)
            iPos = 0
         End If
      Loop
      If cArg = 0 Or (iNextPos &lt;&gt; 0 And iNextPos &lt; Len(sCommand) - 1) Then
         cArg = cArg + 1
         ReDim Preserve sArgs(1 To cArg) As String
         If (cArg = 1) Then
            sArgs(cArg) = sCommand
         Else
            sArgs(cArg) = Mid$(sCommand, iNextPos + 1)
         End If
      End If
      
      ' Check options:
      bState = True
      For i = 1 To cArg
         Selec