有没有将字符串转换成条件表达式的东东（函数）？

[yuzhiyin88]

我的条件表达式较长，如：
If (czlp(i) <> czlpp22(1) And czlp(i) <> czlpp22(2) And czlp(i) <> czlpp22(3) And czlp(i) <> czlpp22(4) And czlp(i) <> czlpp22(5) And _
czlp(i) <> czlpp22(6) And czlp(i) <> czlpp22(7) And czlp(i) <> czlpp22(8) And czlp(i) <> czlpp22(9) And czlp(i) <> czlpp22(10) And _
czlp(i) <> czlpp22(11) And czlp(i) <> czlpp22(12) And czlp(i) <> czlpp22(13) And czlp(i) <> czlpp22(14) And czlp(i) <> czlpp22(15) And _
czlp(i) <> czlpp22(16) And czlp(i) <> czlpp22(17) And czlp(i) <> czlpp22(18) And czlp(i) <> czlpp22(19) And czlp(i) <> czlpp22(20) And _
czlp(i) <> czlpp22(21) And czlp(i) <> czlpp22(22) And czlp(i) <> czlpp22(23) And czlp(i) <> czlpp22(24) And czlp(i) <> czlpp22(25) And _
czlp(i) <> czlpp22(26) And czlp(i) <> czlpp22(27) And czlp(i) <> czlpp22(28) And czlp(i) <> czlpp22(29) And czlp(i) <> czlpp22(30) And _
czlp(i) <> czlpp22(31) And czlp(i) <> czlpp22(32) And czlp(i) <> czlpp22(33) And czlp(i) <> czlpp22(34) And czlp(i) <> czlpp22(35) And _
czlp(i) <> czlpp22(36) And czlp(i) <> czlpp22(37) And czlp(i) <> czlpp22(38) And czlp(i) <> czlpp22(39) And czlp(i) <> czlpp22(40)) Then



要是能把如上的表达式先搞成字符串（搞个循环），而后将其变成条件表达式，我记得在VF中有个宏替换的东东，好象可以用，不知在VB中有没有，高手给我想办法。

[rainstormmaster]

//不知在VB中有没有，高手给我想办法

VB不支持宏替换

[Summer006]

以上逻辑表达式涉及到控件了麽？

[kweis]

建议搞个数组进行循环检查：
Private Sub Command1_Click()
Dim bl As Boolean
Dim k As Integer
For k = 1 To 40
If czlp(i) = czlpp22(k) Then
bl = True '有个同数据
Exit For
End If
Next k
If bl Then '提示--------
MsgBox "有相同数据"
End If
End Sub

[northwolves]

if UBound(Filter(czlpp22, czlp(i)))>-1 then