Function mergXor(ba,bb)
  dim a,b,s,i
  a=""
  b=""
  s=""
  for i=1 to 10
  a=a & ba
  b=b & bb	
  s=s+Right("00"&cstr(asc(mid(a,i,1))Xor asc(mid(b,i,1))),3)
  next
  mergXor=s
  End Function 'Merg