数据删除问题

Question

 怎样一条记录中符合关键条件时，认为匹配进行删除呢  如下一条记录中的数据 123 中 ，如果删除条件为1时，认为匹配进行删除该记录条。另一种情况是，如果， 一条记录123中，要删除条件设置为13时，认为匹配进行删除。12，23 也是其范畴之内。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  MsgBox IsSpl("123", "13") '如果返回 True 表示匹配,可以删除了,
End SubPrivate Function IsSpl(ByVal strText As String, ByVal FindText As String) As Boolean
   Dim i As Long
   For i = 1 To Len(FindText)
     If InStr(1, strText, Mid(FindText, i, 1)) = 0 Then
       IsSpl = False
       Exit Function
     End If
   Next
   IsSpl = True
End Function