Динамический массив(Redim) Visual Basic.

[Army]

Подскажите где ошибка, не могу вникнуть... Нужно решить задачу только с использованием динамических массивов
Условие.
Определить и вывести на экран множество символов, входящих одновременно в определенные имя, фамилию и отчество, введенные с клавиатуры.

Код.

Dim im(30), fam(30), ot(30) As String
Label1.Text = ""
Dim n As Integer
n = 1000
im(30) = InputBox("Введите имя")
fam(30) = InputBox("Введите фамилию")
ot(30) = InputBox("Введите отчество")
ReDim Preserve im(0 To n)
ReDim Preserve fam(0 To n)
ReDim Preserve ot(0 To n)
TextBox1.Text = TextBox1.Text + im(n) + " " + fam(n) + " " + ot(n)

For i = 0 To im.Length - 1
For j = 0 To fam.Length - 1
For y = 0 To ot.Length - 1
If (im(i) = fam(j)) And (im(i) = ot(y)) Then
Label1.Text = Label1.Text + im(i)
End If
Next
Next
Next
End Sub

[Army]

Подскажите плизз, до сих пор не могу сделать, что только не пробовал((