'-----------------------------------------------'
'	BinDeCode (¹ÙÀ̳ʸ® -> ¾Æ½ºÅ° º¯È¯)			'
'-----------------------------------------------'
Public Function BinDecode(byVal binData)
	Dim i, byteChr, strV
	For i = 1 to LenB(binData)
		byteChr = AscB(MidB(binData, i, 2))
		if byteChr > 127 Then
			i = i + 1
			strV = strV & Chr("&H" & Hex(byteChr) & Hex(AscB(MidB(binData, i, 2))))
		Else
			strV = strV & Chr(byteChr)
		End if
	Next
	BinDecode = strV
End Function