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