I found on YouTube this VBA coding that does what I want to do, but I want to expand it
Essentially, this Excel program goes out to Yahoo Finance and pulls out information on a stock once I enter the stock symbol
The "s" is the tag for Symbol, the "n" the name of the stock, and so on...

Dim URL As String: URL = "http://finance.yahoo.com/d/quotes.csv?s=" & Symbols & "&f=snl1r5k"
Dim X As New WinHttpRequest
X.Open "GET", URL, False
X.send

It pulls out the data and puts it into 5 columns of the Excel program, but I want to expand the number of columns for other data on stocks selected
Below is my hang-up...I want to learn how to add columns for more data, so let's say for here, I want to add a 6th column...Any help would be most appreciated...Thank you for your kind consideration...

For i = 0 To UBound(Lines)
sLine = Lines(i)
If InStr(sLine, ",") > 0 Then
Values = Split(sLine, ",")
W.Cells(i + 2, 2).Value = Replace(Split(Split(sLine, Chr(34) & "," & Chr(34))(1), Chr(34) & ",")(0), Chr(34), "")
W.Cells(i + 2, 3).Value = Values(UBound(Values) - 2)
W.Cells(i + 2, 4).Value = Values(UBound(Values) - 1)
W.Cells(i + 2, 5).Value = Values(UBound(Values))
End If
Next i