Sub ParseExtras(ExtrasString As String) As Map
Dim tempMap As Map ,tempstr() As String , temp As Int , Key As String, Value As String
tempMap.Initialize
ExtrasString = API.Mid(ExtrasString, 8, ExtrasString.Length-10) & ", "
tempstr= Regex.Split(", ", ExtrasString)
For temp = 0 To tempstr.Length-1
Key=API.getside(tempstr(temp), "=", True, False).Trim
Value= API.Right(tempstr(temp), tempstr(temp).Length- Key.Length -1).Trim
tempMap.Put( Key, Value)
Next
Return tempMap
End Sub