>>262
このスレで裏技が出るとはおもいませなんだ

>>264
function Asc(buffer as BytePtr)as byte
Asc = buffer[0]
end function

エラー処理は書いてないですが
こんなかんじですかね？