Public  Sub StringToUri(uri As String) As String
		    Private target,replacement As List
    		Private toString As String = uri

    		target.Initialize2(Array As Object(Chr(32), "@","#","$","&","+","`","•","√","π","÷","×","¶","∆","£","¢","€","¥","^","°","=","{","}","©","®","™","℅","[","]"))
    		replacement.Initialize2(Array As Object("%20", "%40","%23","%24","%26","%2B","%60","%E2%80%A2","%E2%88%9A","%CF%80","%C3%B7","%C3%97","%C2%B6","%E2%88%86","%C2%A3","%C2%A2","%E2%82%AC","%C2%A5","%5E","%C2%B0","%3D","%7B","%7D","%C2%A9","%C2%AE","%E2%84%A2","%E2%84%85","%5B","%5D"))
  
    		For i = 0 To target.Size - 1
'				If  toString.Contains(target.Get(i)) Then
'					Log($"Replace[${target.Get(i)}]  With:[${replacement.Get(i)}]"$)
'				End If
				
        		toString = toString.Replace(target.Get(i), replacement.Get(i))
    		Next
			
'			Log($"StringToUri:${toString}"$)
			
    		Return toString
End Sub