奇怪

yulijin608

请教,为什么代码在vb中编译通过,在cad2002中的vba中编译也通过,而在cad 2000中出错.

yulijin608

Private Function StringToArray(InString As String) As Byte()----显示出错"编译错误,缺少语句结束"
Dim i As Integer, bytBuffer() As Byte
ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))
bytBuffer = StrConv(InString, vbFromUnicode)
StringToArray = bytBuffer
End Function