Function b2s(abin,abegin,aend)
  b2s=""
  If aend=0 Then
    aend=UBound(abin)+1
  End If
  For z=abegin to aend-1
    b2s=b2s&chrw(ascw(chr(ascb(midb(abin,z+1,1)))))
  Next
End Function

Function bcode(abin,pos)
  bcode=ascw(chr(ascb(midb(abin,pos+1,1))))
End Function