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 ,...