I am download stock data with the following code.

Set shFirstQtr = Workbooks(1).Worksheets(2)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection:="URL;http://finance.yahoo.com/d/quotes.csv?s=" &
Left(SymbolString, Len(SymbolString) - 1) & "&f=l1vb3b2ogha2&e=.csv", _
Destination:=shFirstQtr.Cells(2, 2))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True

.WebFormatting = xlRTF
.Refresh
End With

The problem is that all 8 data items are piled into one column. The data is
comma delimited. I can manually, using the Data optioon and the Text to
columns , move the data to columns but I need to able to it programmatically,

Any help will be appreciated.

Duane