RatesChk.Initialize
For i = 0 To Count - 1
Dim str As Map = results.Get(i)
Dim strVar As String = str.Get("valid_from")
'FromChk= strVar.SubString2(0,10)
invChk = str.Get("value_inc_vat")
If invChk = "" Then invChk="0.00"
tim0Chk = str.Get("valid_from")
tim0Chk = tim0Chk.SubString2(11,16)
RatesChk.Put(tim0Chk, invChk)
Next
File.WriteMap(File.DirInternal, "Rates.txt", RatesChk)