For.....Next, нужно унифицировать код - VB

Формулировка задачи:

Есть вот такой код:

If List1.Text = arrCompanyName(0) Then
Text1.Text = arrCompanyName(0)
End If
If List1.Text = arrCompanyName(1) Then
Text1.Text = arrCompanyName(1)
End If
If List1.Text = arrCompanyName(2) Then
Text1.Text = arrCompanyName(2)
End If

Необходимо его унифицировать, т.к. число записей в массиве варьируется,

For i = 0 to 2
If List1.Text = arrCompanyName(i) Then
Text1.Text = arrCompanyName(i)
End If
Next

Не получается... Подскажите пожалуйста. Заранее благодарен.

Решение задачи: «For.....Next, нужно унифицировать код»

textual
                            Листинг программы 
                        

                            j = Len(arrCompanyName)
For i = 0 to j
If List1.Text = arrCompanyName(i) Then
Text1.Text = arrCompanyName(i)
Exit For
End If
Next
                        