Dim CmdLine As String Dim Tokens ( 3 ) As String Dim position ( 2 ) As Integer CmdLine = Chr ( 34 ) + "a.exe" + Chr ( 34 ) + " " + Chr ( 34 ) + "b c d" + Chr ( 34 ) + " " + Chr ( 34 ) + "e f" + Chr ( 34 ) position ( 0 ) = InStr ( CmdLine , Chr ( 34 ) ) position ( 1 ) = InStr ( position ( 0 ) + 1 , CmdLine , Chr ( 34 ) ) Tokens ( 0 ) = Mid ( CmdLine , position ( 0 ) + 1 , position ( 1 ) - position ( 0 ) - 1 ) position ( 0 ) = InStr ( position ( 1 ) + 1 , CmdLine , Chr ( 34 ) ) position ( 1 ) = InStr ( position ( 0 ) + 1 , CmdLine , Chr ( 34 ) ) Tokens ( 1 ) = Mid ( CmdLine , position ( 0 ) + 1 , position ( 1 ) - position ( 0 ) - 1 ) position ( 0 ) = InStr ( position ( 1 ) + 1 , CmdLine , Chr ( 34 ) ) position ( 1 ) = InStr ( position ( 0 ) + 1 , CmdLine , Chr ( 34 ) ) Tokens ( 2 ) = Mid ( CmdLine , position ( 0 ) + 1 ,