Vb API发送函数错误

--------------------编程问答-------------------- 如果你真的“每次发送数据不会超过20字符”，那你说的这两种　出错　的原因，恐怕无法解释！
你说的那个 If块，是限定每次发送字符串长度的（因为它是用固定大小的缓冲区）。
如果你发送的字符串那么少，那个If语句不会有作用。

Mid$( ) 改为 Mid( ) 也“会出错”，同样无法解释。
用Mid$( )自然要比用 Mid( ) 好。
即使改成 Mid( )，在 Asc( )函数中， Mid( )的结果也会自动进行类型转换，参数也是合法的，怎么会引起错误！

--------------------编程问答-------------------- 要是有错误，楼主怎么不把具体错误提示是什么说一下？
还有，如果出错，你也可以进入调试状态，看一下它究竟是如何“出错”的呀！

--------------------编程问答-------------------- 有个需要说明的是，你这个 WriteCommString() 函数，只适合发送 ASCII码 的标准字符串。
有汉字（或其它 非ASCII码的字符）时， bRead(LenVal) = Asc( .... ) 那儿会出错。

补充：VB ,  基础类