不知道 为什么 一运行 就死掉  我不知道 是哪里错了 请朋友们 帮我看看  谢谢 大家了  （就15分了）   
txtjg.text"000 001 010 011 100 101 110 111"
chklm(0) caption(00)  chklm(1) caption(01)
    Dim sTmp As String
    Dim aStr() As String
    Dim aRet() As String
    Dim i, j As String
   
    sTmp = txtjg.Text
    aStr = Split(txtjg.Text, " ")
   
    While sTmp <> ""
   
        For i = 0 To 1
        
            If optlmpc.Value = True Then
                If chklm(i) = 1 Then

                j = chklm(i).Caption
                aRet = Filter(aStr, j, False)
            
                End If
            End If
        Next
    Wend
   
    txtjg.Text = Join(aRet, " ")

这个代码我看不懂！

if ubound(astr) = -1 then
'没有数据
else
    '... 有数据，处理...
endif

三数的好像说对了就是没说为什么
建议不要使用如sTmp <> ""这种写法
可以写成
Len(sTmp)>0

谢谢 朋友们的指点