Create an excel function that downloads one historical data point from Google Finance

The below code needs to be adjusted into a VBA function - that has three arguments: Ticker, Date, Type, where Type can be: Open, High, Low, Close or Volume. When used in excel in a cell it should return the corresponding value as per Google Finance website (this will be a number or if not available "N/A"). At the moment the code below is used for downloading the full data (type + date range), however the function should be referring to just one value. ***** Option Explicit Sub GetData() Dim DataSheet As Worksheet Dim EndDate As Date Dim StartDate As Date Dim Symbol As String Dim qurl As String Dim nQuery As Name Dim LastRow As Integer [login to view URL] = False [login to view URL] = False [login to view URL] = xlCalculationManual Sheets("Data").[login to view URL] Set DataSheet = ActiveSheet StartDate = [login to view URL]("startDate").Value EndDate = [login to view URL]("endDate").Value Symbol = [login to view URL]("ticker").Value Sheets("Data").Range("a1").[login to view URL] qurl = "[login to view URL]" & Symbol qurl = qurl & "&startdate=" & MonthName(Month(StartDate), True) & _ "+" & Day(StartDate) & "+" & Year(StartDate) & _ "&enddate=" & MonthName(Month(EndDate), True) & _ "+" & Day(EndDate) & "+" & Year(EndDate) & "&output=csv" QueryQuote: With Sheets("Data").[login to view URL](Connection:="URL;" & qurl, Destination:=Sheets("Data").Range("a1")) .BackgroundQuery = True .TablesOnlyFromHTML = False .Refresh BackgroundQuery:=False .SaveData = True End With Sheets("Data").Range("a1").[login to view URL] Destination:=Sheets("Data").Range("a1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, other:=False Sheets("Data").Columns("A:G").ColumnWidth = 12 End Sub