'-----------------------------------------
' BinDecode (¹ÙÀ̳ʸ® -> ¾Æ½ºÅ° º¯È¯)
' mongmong - 2003. 2
'-----------------------------------------
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