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