Как узнать кодировку текста в переменной?

Func CopyKey()
	local $WinText = WinGetText("ГАРАНТ ")
	local $a = StringSplit($WinText, @LF, 1)
	local $line
	For $i = UBound($a) - 1 to 0 Step -1
		if $a[$i] = 'Поиск по ситуации' Then 
			ClipPut($line)
			Say ("Скопировано:" & @CRLF & $line)
			Return
		EndIf	
		$line = $a[$i]
	Next
EndFunc

$sText = 'Строка 1' &@CRLF& 'Поиск по ситуации Строка 2' &@CRLF& 'Строка 3'

$sLine = StringRegExpReplace(@CRLF& $sText &@CRLF, '(?s)(?i).*\r\n(.*?Поиск по ситуации.*?)\r\n.*', '\1')
MsgBox(64, 'Внимание', $sLine)