text1“000 001 010 011 100 101 110 111 012”
chk（0）caption（00）； chk（1）caption（01）；chk（2）caption（02）
我才刚开始学vb  请朋友们帮忙  谢谢大家了
我想的是 当我选中 chk（0），chk（1）,chkk(2) 这三个 复选框的时候 删除掉 text1 中包涵00 ，01 和02 的字符（用空格格开的三个字符是一组） 最后的结果是 text1 中只剩下111

Option Explicit

Private Sub Form_Load()
    Dim sTmp As String
    sTmp = "000 001 010 011 100 101 110 111 012"
    Dim aStr() As String
    aStr = Split(sTmp, " ")
    Dim aRet() As String
    aRet = Filter(aStr, "00", False)
    aRet = Filter(aRet, "01", False)
    aRet = Filter(aRet, "02", False)
    Debug.Print Join(aRet, " ")
End Sub

谢谢