请帮助检查一下有什么错误！

weixin7944

有一套程序，主要功能是关闭引用背景图的相关图层的。由用户在TEXTBOX1中输入需要关闭的图层名称，几个图层之间要用;分隔。由于所有引用都有引用名称如XREF1等。如图层：XREF1│0,故关闭时需要从图层名称的后几位开始。程序如下：

Private Sub CommandButton1_Click()
         Dim layname As String
        Dim z As Integer
        Dim ii As Integer
            Dim lay4 As AcadLayer
   z = 1
    For ii = 1 To Len(TextBox1.Text)
    ii = InStr(z, TextBox1.Text, Chr(59))
    If ii = 0 Then
    layname = Mid(TextBox1.Text, z, (Len(TextBox1.Text)))
    ii = Len(TextBox1.Text) + 1
    Else
    layname = Mid(TextBox1.Text, z, ii - z)
    z = ii + 1
    End If
   
        For Each lay4 In ThisDrawing.Layers
        If Mid(lay4.Name, 7) = layname Then
   lay4.LayerOn = False
  Exit For
   End If
    Next lay4
    Next ii
End Sub

程序运行后有以下问题：1、图层名为单独数字的关不了，如XREF1│9；2、图层名为汉字的关不了，如XREF1│设备。

请高手指点，谢谢！

雪山飞狐_lzh

Sub tt()
a = Split("1;2;设备;6;7", ";")
For Each i In a
    ThisDrawing.Layers(i).LayerOn = False
Next i
End Sub

weixin7944

谢谢！