FileName As String
Dim bState As Boolean
Dim fTI As frmTypeLib
   
   sCommand = UCase$(Command)
   If Len(sCommand) &gt; 0 Then
      
      ' Parse arguments:
      iPos = InStr(sCommand, "/")
      Do While iPos &lt;&gt; 0
         iNextPos = InStr(iPos + 1, sCommand, " ")
         cArg = cArg + 1
         ReDim Preserve sArgs(1 To cArg) As String
         If (iNextPos &lt;&gt; 0) Then
            sArgs(cArg) = Mid$(sCommand, iPos, iNextPos - iPos)
            iPos = InStr(iNextPos, sCommand, "/")
      