例如设窗体上有一个text 控件，6个check(0)到check(5)控件
  现在text中输入ABCDEF中任意一个字母或多个字母，使check控件状态为点击
     例如输入A，则check(0).value =1 ,其他check的value 为0
         输入AC，则check(0)和check（2）.value =1 ,其他check的value 为0
          输入BCF，则check(1)和check（2）和check（5）的value =1 ,其他check的value 为0
            .....

             等等，即在ABCDEF中根据组合赋值check(0-5)的value值

             比较乱，请高手给点思路......

这个太简单了，在text1的change事件添加如下代码（字母可大写可小写）：
Private Sub Text1_Change()
  Dim a As String, i As Integer, j As Integer
  a = UCase(Text1)
  For i = 0 To 5
    Check1(i).Value = 0
  Next
  For i = 1 To Len(a)
    j = Asc(Mid(a, i, 1)) - Asc("A")
    If j >= 0 And j < 6 Then Check1(j).Value = 1
  Next
End Sub

准备写考试系统的多选题，想了很长时间
非常感谢
省了用冗长的判断