'Sep=Separator between Key and Value
'Tkn=Token between the Map values
'Returns Map
Sub String2Map(Str As String,Sep As String,Tkn As String) As Map
Dim StrMap As Map
StrMap.Initialize
StrMap.Clear
Do While Str.Contains(Tkn)
StrMap.Put(Str.SubString2(0,Str.IndexOf(Sep)),Str.SubString2(Str.IndexOf(Sep)+1,Str.IndexOf(Tkn)))
Str=Str.SubString2(Str.IndexOf(Tkn)+1,Str.Length)
Loop
If(Str.Contains(Sep)=True) Then
StrMap.Put(Str.SubString2(0,Str.IndexOf(Sep)),Str.SubString2(Str.IndexOf(Sep)+1,Str.Length))
End If
Return StrMap
End Sub