Function BinToText(varBinData, intDataSizeInBytes)    ' as String

	  Dim objRS

	  Const adFldLong = &H00000080

	  Const adVarChar = 200 

	  Set objRS = CreateObject("ADODB.Recordset")

	  objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong

	  objRS.Open

	  objRS.AddNew

	  objRS.Fields("txt").AppendChunk varBinData

	  BinToText = objRS("txt").Value

	  objRS.Close

	  Set objRS = Nothing

	End Function



	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