Visual Basic - ayuda

necesito hacer un programa que compare nombres de un arreglo y me diga si, al introducir e nombre en un text, si ese nombre existe o no, intente hacer esto

Dim pal(5) As String
Private Sub Command1_Click()
pal(0) = "araceli"
pal(1) = "samuel"
pal(2) = "raquel"
pal(3) = "elias"
pal(4) = "jocelyn"
For i = 0 To 5
If Text1.Text = pal(i) Then
Print "tu nombre si existe y esta en posicion"; i;
Else
print "tu nombre no existe"
End If
Next i

End Sub

pero no me da la comparacion del else. es decir si en el text le pongo el nombre de araceli si me da la posicion pero tambien me toma el else. Alguien podria decirme donde esta el error. gracias

puedes hacerlo con una variable booleana, algo así:
Dim pal(5) As String
Private Sub Command1_Click()
Dim existe As Boolean ' <-----------
pal(0) = "araceli"
pal(1) = "samuel"
pal(2) = "raquel"
pal(3) = "elias"
pal(4) = "jocelyn"
For i = 0 To 5
If Text1.Text = pal(i) Then
existe = True
Exit For
End If
Next i
If existe Then
Print "tu nombre si existe y esta en posicion "; i;
Else
Print "tu nombre no existe"
End If
End Sub
Saludos......