朋友们，来帮我看看这段程序。问题在哪？ 谢谢！

Question

而且,每当运行到如下地方时,就会出现"实时错误 '7'    内存溢出"
这是怎么会是啊 !!!!!!!!!!!!!!!!!Buffer = Me.MSComm1.Input
RecBuff = RecBuff & StrConv(Buffer, vbUnicode)                

Answer 1

RecBuff定义了吗？
是否超出了string的空间？
看看:
Buffer = Me.MSComm1.Input
RecBuff = StrConv(Buffer, vbUnicode)
debug.print RecBuff

Answer 2

将Dim Buffer As Variant
修改成
Dim Buffer() as Byte

Answer 3

>RecBuff定义了吗？
>是否超出了string的空间？
>看看:
>Buffer = Me.MSComm1.Input
>RecBuff = StrConv(Buffer, vbUnicode)
>debug.print RecBuff
定义了。而且还是 Public