Function BinToText(varBinData, intDataSizeInBytes)    ' as String
	 
		BinToText = BinDecode (varBinData)

'	  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