Dim sh, t1, t2
	t1 = 12
	t2 = 8
	Set sh = CreateObject("WScript.Shell")
	sh.RegWrite "HKCU\Software\VB And VBA Program Settings\VSL\Config\SparkPF\Tasas\1", Replace(Trim(CStr(t1)), ",", ".")
	sh.RegWrite "HKCU\Software\VB And VBA Program Settings\VSL\Config\SparkPF\Tasas\2", Replace(Trim(CStr(t2)), ",", ".")
	sh.RegWrite "HKCU\Software\VB And VBA Program Settings\VSL\Config\SparkPF\Tasas\3", Replace(Trim(CStr(t1 + 10)), ",", ".")