Если текст содержится в массиве, то

[Busine2009]

Есть данные:

Код: Выделить всё

Dim MyArray_1(17) As String
MyArray_1(1) = 2
MyArray_1(2) = 4

Как написать условие:
если текст содержится в MyArray_1, то...

[Aent]

Я бы трансформировал массив в строку с разделителями с помощью функции Join и затем искал бы свой текст, дополненный этим же разделителем в получившейся строке с помощью
InStr.
Т.е что то вида:

Код: Выделить всё

if Instr(Chr(0) & Join(MyArray_1,Chr(0)) & Chr(0),Chr(0) & TestStr & Chr(0)) > 0 Then