[VBA]求助！用VBA提取CAD中实体段信息

宝宝天龙

我是新手，求助高手帮忙指点一下，我的代码在VBA编辑器里运行老是出现错误（红色字体部分），我感觉语法上没有什么错误，但是每次运行都出错，找不出原因，整了好久！希望哪位大侠帮忙指点一下，万分感激！！！
Sub CommandButton1_Click()


    Dim A As String
    Dim B As String
    Dim CC As ENTITIES_Type
    Dim i, il As Integer
    Open "e:\vba\1.DXF" For Input As #1
    Do While B = "ENTITIES"
   
    Input #1, B
    Loop
   
    Seek #1, Seek(1)
    Do While Not EOF(1)
     
      Input #1, B
     Loop
  
Do Input #1,B
  Loop Until B <>"0"
i = i + 1
    Select Case B
    Case "LINE"
    CC.Style = "line"


    CC.X1 = Str$(X1)
    CC.Z1 = Str$(Z1)
    CC.X2 = Str$(X2)
    CC.Z2 = Str$(Z2)
    xx1 = X2
    Case "ARC"
   
    CC.Style = "ARC"
    CC.X1 = Str$(X1)
    CC.Z1 = Str$(Z1)
    CC.X2 = Str$(X2)
    CC.Z2 = Str$(Z2)
    CC.X3 = Str$(X3)
    CC.Z3 = Str$(Z3)
    CC.R = Str$(R)
    CC.ANGLE1 = Str$(ANGLE1)
    CC.ANGLE2 = Str$(ANGLE2)
    If Abs(X1 - xx1) > 0.5 Then
  
CC.WISE = "0"
    A = CC.X1: CC.X1 = CC.X2: CC.X2 = A
    A = CC.Z1: CC.Z1 = CC.Z2: CC.Z2 = A
    A = CC.ANGLE1: CC.ANGLE1 = CC.ANGLE2: CC.ANGLE2 = A
    Else: CC.WISE = "1"
End If
xx1 = X2
  Case "CIRCLE"
  
    il = il + 1
   
    CC.Style = "CIRCLE"
  
    CC.X1 = Str$(X1)
    CC.Z1 = Str$(Y1)
    CC.R = Str$(R1)
    CC.X2 = CC.Z1
    xx1 = X1
        
   
    Case Else
    CC.Style = "NONE"

    End Select
    Seek #1, Seek(1)
    j = Str$(i)
   
    Close #1
    End Sub

宝宝天龙

补充一点，如果把红色字体部分删除后，就可以运行了，不过如果删除了，那么我提取出来的应该就不只是实体段的信息了。困惑！