我想实现的是 当选中chk（0）的时候 过滤掉text1中 三个数字（三个数字一组）中 最大数减去最小数等于0的三个数字 就是000这组
text1“000 001 010 011 100 101 110 111 012”
chk（0）caption（0）； chk（1）caption（1）；chk（2）caption（2）

Dim hki, hkk, hko, hkp, i, j As Integer
    Dim hkgl, k, p As String
    Dim hkgl1 As String
    Dim hkgl2 As String
   
    hkgl = ""
    hkgl1 = Trim(txtjg.Text)
   
    While Len(hkgl1) > 0
   
        hkgl2 = Left(hkgl1, 3)
        hkgl1 = Mid(hkgl1, 5)
        
        For i = 0 To 9
        hki = Mid(chkkd(i).Caption, 1, 1)
        hkk = Mid(hkgl2, 1, 1)
        hko = Mid(hkgl2, 2, 1)
        hkp = Mid(hkgl2, 3, 1)
        
            
                If chkkd(i).Value = 1 Then
                    If hko > hkp Then
                        k = hkp
                        hkp = hko
                        hko = k
                    End If            
                    If hkk > hko Then      这个加粗的地方 朋友们帮我看一下 应该怎么改一下 我怎么让这hkk ， hko ，hkp 三个数
                        p = hko            进行 对比 然后换位 hkp 最大  hkk 最小
                        hko = hkk
                        hkk = p
                    End If
                    
                    If Val(hkp) - Val(hkk) = hki Then
                    hkgl2 = ""
                    End If
                 
                End If
            
        Next
        If Len(hkgl2) > 0 Then
        hkgl = hkgl2 & " " & hkgl
        End If
    Wend
    txtjg.Text = hkgl

不知道理解是否正确，不过按照你的想法，当选择chk(0)的时候会显示000和111,并不仅是000,下面代码我已验证。
Dim a As String, b() As String, i As Integer, j As Integer, max As Integer, min As Integer, chek As CheckBox
b = Split(Trim(txtjg), " ")
a = ""
For i = 0 To UBound(b)
  If b(i) <> "" Then
    max = -1
    min = 10
    For j = 1 To 3
      '找到最大数放到max中，最小数放到min中
      If Val(Mid(b(i), j, 1)) > max Then max = Val(Mid(b(i), j, 1))
      If min > Val(Mid(b(i), j, 1)) Then min = Val(Mid(b(i), j, 1))
    Next
    For Each chek In chkkd
      If chek.Value = 1 Then If Val(chek.Caption) = max - min Then a = a & b(i) & " "
    Next
  End If
Next
txtjg= a