我想实现的是 当选中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