<%
Function ParseStringRegExp (strSource)
  Dim objRegex
  Dim colMatches
  Dim objMatch
  
  Set objRegex = New RegExp             ' Create a regular expression object.
  objRegex.Pattern = """[^""]*""|\S+"           ' Set pattern.
  objRegex.Global = True                        ' Set global applicability.
  Set colMatches = objRegex.Execute(strSource)  ' Execute search.

  Dim aryOutput()
  ReDim aryOutput(colMatches.Count - 1)         ' Prepare the output array.
  Dim lngMatchCounter
  
  ' Grab the colMatches collection and store each value into an array.
  lngMatchCounter = 0
  For Each objMatch In colMatches
    aryOutput(lngMatchCounter) = objMatch.Value
    lngMatchCounter = lngMatchCounter + 1
  Next
     
  ParseStringRegExp = aryOutput

End Function
%>