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