function Equals(ByVal expression, ByVal start)
	dim exp1 : exp1 = left(expression, len(start))
	dim exp2, c
	if len(start) = 0 then
		Equals = true
		exit function
	end if
	if len(start) > len(expression) then
		Equals = false
		exit function
	end if
	for c = 1 to len(start)
		exp2 = exp2 & getpychar(mid(expression, c, 1))
	next
	Equals = instr(1, exp1, start, 1)>0 or instr(1, exp2, start, 1)>0
end function

	private function smallerOf(first, second)
		smallerOf = first
		if first > second then
			smallerOf = second
		end if
	end function

function getpychar(char)

	
	dim tmp
	tmp = 65536 + asc(char)
	if(tmp>=45217 and tmp<=45252) then 
		getpychar = "A"
	elseif(tmp>=45253 and tmp<=45760) then
		getpychar = "B"
	elseif(tmp>=45761 and tmp<=46317) then
		getpychar = "C"
	elseif(tmp>=46318 and tmp<=46825) then
		getpychar = "D"
	elseif(tmp>=46826 and tmp<=47009) then 
		getpychar = "E"
	elseif(tmp>=47010 and tmp<=47296) then 
		getpychar = "F"
	elseif(tmp>=47297 and tmp<=47613) then 
		getpychar = "G"
	elseif(tmp>=47614 and tmp<=48118) then
		getpychar = "H"
	elseif(tmp>=48119 and tmp<=49061) then
		getpychar = "J"
	elseif(tmp>=49062 and tmp<=49323) then 
		getpychar = "K"
	elseif(tmp>=49324 and tmp<=49895) then 
		getpychar = "L"
	elseif(tmp>=49896 and tmp<=50370) then 
		getpychar = "M"
	elseif(tmp>=50371 and tmp<=50613) then 
		getpychar = "N"
	elseif(tmp>=50614 and tmp<=50621) then 
		getpychar = "O"
	elseif(tmp>=50622 and tmp<=50905) then
		getpychar = "P"
	elseif(tmp>=50906 and tmp<=51386) then 
		getpychar = "Q"
	elseif(tmp>=51387 and tmp<=51445) then 
		getpychar = "R"
	elseif(tmp>=51446 and tmp<=52217) then 
		getpychar = "S"
	elseif(tmp>=52218 and tmp<=52697) then 
		getpychar = "T"
	elseif(tmp>=52698 and tmp<=52979) then 
		getpychar = "W"
	elseif(tmp>=52980 and tmp<=53688) then 
		getpychar = "X"
	elseif(tmp>=53689 and tmp<=54480) then 
		getpychar = "Y"
	elseif(tmp>=54481 and tmp<=62289) then
		getpychar = "Z"
	else
		getpychar = char
	end If
	
		select case char
			Case "Û¡"
getpychar = "d"		
			
	Case "Úò"
getpychar = "h"	
			
	Case "âÖ"
getpychar = "a"	

	Case "í¾"
getpychar = "b"	

	Case "ìø"
getpychar = "c"	

	Case "ëø"
getpychar = "t"	
	Case "Ú£"
getpychar = "z"	

	Case "Úé"
getpychar = "p"	
'**************************************************

	Case "ñ¼"
getpychar = "d"	

	Case "ãÆ"
getpychar = "y"	

	Case "åã"
getpychar = "m"	

	Case "֍"
getpychar = "m"	

	Case "Û­"
getpychar = "x"	

	Case "ÙÜ"
getpychar = "s"	

	Case "îâ"
getpychar = "j"	


		case "å±"
		getpychar = "b"
		
		case "ݼ"
		getpychar = "C"
		
				case "è¾"
		getpychar = "C"
		
						case "ܽ"
		getpychar = "f"
		
			case "ãã"
		getpychar = "f"
		
	case "å¾"
		getpychar = "h"
		
	case "¸ä"
		getpychar = "h"
		
			case "֑"
		getpychar = "l"	
		
		case "Ýþ"
		getpychar = "l"
		
				case "æê"
		getpychar = "l"
		
	case "ãþ"
		getpychar = "j"
		
			case "çí"
		getpychar = "e"
		
				case "ãÉ"
		getpychar = "m"
		
				case "âù"
		getpychar = "y"
		
					case "êË"
		getpychar = "z"	
		
			case "è÷"
		getpychar = "z"	
		
			case "Ü°"
		getpychar = "x"	
				
			case "Þ±"
		getpychar = "w"	
					case "›~"
		getpychar = "t"	
					case "èë"
		getpychar = "h"	
					case "ˆÂ"
		getpychar = "k"	
		
					case "ÜÈ"
		getpychar = "j"	
					case "ä°"
		getpychar = "x"	
		
			case "äü"
		getpychar = "t"	
					case "Ù¸"
		getpychar = "y"	
					case "èÏ"
		getpychar = "t"	
					case "å¹"
		getpychar = "j"	
		
					case "²î"
		getpychar = "c"	
					case "Ü«"
		getpychar = "y"			
						case "س"
		getpychar = "y"			

	exit function
	end select
end function