Log (DateTime.Time(DateTime.Now))
For i = 0 To 100000000
Dim str2 As String = $"{"a":"1","b":"2","c":"3"}"$
Dim a As String = str2.SubString2 (str2.IndexOf ($""a""$) + 5,str2.IndexOf2 ($"","$, str2.IndexOf ($","a""$)))
Dim b As String = str2.SubString2 (str2.IndexOf ($""b""$) + 5,str2.IndexOf2 ($"","$, str2.IndexOf ($","b""$)))
Dim c As String = str2.SubString2 (str2.IndexOf ($""c""$) + 5,str2.IndexOf2 ($""}"$, str2.IndexOf ($","c""$)))
Next
Log (DateTime.Time(DateTime.Now))