VB Code:
  1. CharByte = Asc(Left(Char, 1))
can be simply done as
VB Code:
  1. CharByte  = Asc(Char)