AFIN Web Service GET VALUE
Get value form - step #1/2

key:
atr:

This is the same as:

1. In any web browser (url):
http://afin.net/ws/getvalue.php?key={MyKey}&atr={MyAtr}

2. In Microsoft Excel (v.2013+) worksheet formula:
=WEBSERVICE("http://afin.net/ws/getvalue.php?key={MyKey}&atr={MyAtr}")

3. In Google Sheets worksheet formula:
=IMPORTDATA("http://afin.net/ws/getvalue.php?key={MyKey}&atr={MyAtr}")

4. Microsoft Excel VBA (just copy and paste into a VBA module), in older Excel version, too:
****
Function GetValueUDF(myKey As String, myAtr As String)

On Error GoTo LErr0
lsUrl = "http://afin.net/ws/getvalue.php?key=" & myKey & "&atr=" & myAtr

Set loHttp = CreateObject("Microsoft.XMLHTTP")
'Set loHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 'another object
loHttp.Open "GET", lsUrl, False
loHttp.send

GetValueUDF = loHttp.responseText
GoTo LEnd
LErr0:
GetValueUDF = Err.Description
LEnd:
Set loHttp = Nothing
End Function
****
Sample calling from Excel: =GetValueUDF("0123456789";"myAtr")