我觉得是:
Private Type NewRec
    iCode As Integer
    Ch(0 To 2) As Byte   
    SylHead As Byte
    SyleNum As Integer
End Type

解决方案 »

  1.   

    Private Type NewRec
        Dim iCode As Integer
        Dim Ch(3) As Byte   
        Dim SylHead As Byte
        Dim SyleNum As Integer
    End Type
      

  2.   

    萧兄, Ch(3) 不对。是 Ch(2) 或 Ch(0 To 2)
      

  3.   

    应:
    Private Type NewRec
        iCode As Integer
        Ch(0 To 2) As Byte   
        SylHead As Byte
        SyleNum As Integer
    End Type
      

  4.   

    Private Type NewRec
        iCode As Integer
        Ch(3) As Byte   
        SylHead As Byte
        SyleNum As Integer
    End Type