The following code builds a query string similar to the following, which fetches stock quotes for DIS, COKE, amd MCI:

    http://quote.yahoo.com/download/quotes.csv?format=sl&ext=.csv&symbols=mci,dis,coke,pep

It uses the Inet control's OpenURL method to open the URL and read the result. The result is text similar to the following:

    "MCI",22.61,"5/23/2003","3:20pm",-0.17,22.60,22.75,22.45,5600
    "DIS",18.24,"5/23/2003","4:01pm",+0.12,18.25,18.35,18.20,6044400
    "COKE",50.23,"5/23/2003","3:59pm",-0.47,50.46,50.68,50.00,4800
    "PEP",43.56,"5/23/2003","4:01pm",-0.17,43.62,43.80,43.35,2389000

Notice that this isn't HTML so it will probably confuse your browser. The program, however, has no trouble displaying the resulting text.
              

' Set the following constant to True to load
' from a test data file instead of from
' the Web.
'Private Const USE_TEST_FILE = True
Private Const USE_TEST_FILE = False

Private Function LoadTestFile() As String
Dim fname As String
Dim fnum As Integer

    fname = App.Path & "\quote.htm"
    fnum = FreeFile
    Open fname For Input As fnum
    LoadTestFile = Input$(LOF(fnum), #fnum)
    Close fnum
End Function

Private Sub cmdGetQuotes_Click()
Dim not_first_symbol As Boolean
Dim symbol As String
Dim query_url As String
Dim i As Integer
Dim response As Variant

    MousePointer = vbHourglass
    txtQuotes.Text = ""
    DoEvents
    
    ' Prepare a URL to get the quotes.
    If USE_TEST_FILE Then
        response = LoadTestFile
    Else
        query_url = _
            "http://quote.yahoo.com/download/quotes.csv?format=sl&ext=.csv&symbols="
        For i = txtSymbol.LBound To txtSymbol.UBound
            symbol = LCase$(Trim$(txtSymbol(i).Text))
            If Len(symbol) > 0 Then
                If not_first_symbol Then _
                    query_url = query_url & ","
                query_url = query_url & symbol
                not_first_symbol = True
            End If
        Next i

        ' Open the URL.
        response = inetQuotes.OpenURL(query_url)
    End If

    ' Display the response.
    txtQuotes.Text = response

    MousePointer = vbDefault
End Sub

' Cancel any pending commands.
Private Sub Form_Unload(Cancel As Integer)
    inetQuotes.Cancel
End Sub

For another example, see Retrieve stock prices from the Web, example.