Buscar en un datagridview =S

[Edgardo89]

Buenas!! estoy haciendo un proyecto de matricula, donde ingreso estudiantes, curso y realizo la matricula, estoy usando visual studio 2005 .net
estoy utilizando objetos , todo muy bien hasta ahi, pero cuando quiero buscar no me sale...En un proyecto de la solucion guardo las clases de cada entidad y a la hora de realizar el buscador me da error.

este es el codigo de agregar (que si funciona)
Imports Negocio

Public Class EstudiantesAgregar
Dim oEstudiante As New Estudiante
Public VectorEstudiante(100) As Estudiante
Public conteo As Integer = 0
Dim i As Integer



Private Sub BtnAgregarEstudiante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregarEstudiante.Click
Try
Dim oEstudiante As New Estudiante
oEstudiante.PropCodigo = TxtCarnet.Text
oEstudiante.PropNombre = TxtNombre.Text
oEstudiante.PropApellido1 = TxtApellido1.Text
oEstudiante.PropApellido2 = TxtApellido2.Text
oEstudiante.PropEdad = TxtEdad.Text
oEstudiante.PropEstado = RadioBtnActivo.Checked
oEstudiante.PropGenero = RadioBtnMasculino.Checked


VectorEstudiante(conteo) = oEstudiante
MessageBox.Show("Estudiante empadronado exitosamente", "Atención!", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, 0, False)
TxtCarnet.Text = String.Empty
TxtNombre.Text = String.Empty
TxtApellido1.Text = String.Empty
TxtApellido2.Text = String.Empty
TxtEdad.Text = String.Empty
RadioBtnActivo.Checked = True
RadioBtnMasculino.Checked = True
ErrorProvider.SetError(TxtCarnet, String.Empty)
ErrorProvider.SetError(TxtNombre, String.Empty)
ErrorProvider.SetError(TxtApellido1, String.Empty)
ErrorProvider.SetError(TxtApellido2, String.Empty)
ErrorProvider.SetError(TxtEdad, String.Empty)
conteo = conteo + 1
TxtCarnet.Focus()

Catch ex As Exception
MessageBox.Show(ex.Message, "Atención!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, 0, False)
End Try
End Sub

para visualizar tengo un form aparte donde me ensaña todos los datos.

y esto es lo que estaba haciendo para buscar (no me sirve =S)

Dim i, j As Integer

Public Function BuscarValor(ByVal codigo As String) As Boolean
Dim existe As Boolean = False

For i = 0 To EstudiantesAgregar.VectorEstudiante.Length - 1

If Me.TxtBuscEstud.Text = EstudiantesAgregar.VectorEstudiante.(i) Then
Return True
End If
Next i
Return False

End Function

Private Sub ElementoBuscadoEst_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim codigo As String = Me.TxtBuscEstud.Text
If (Me.BuscarValor(codigo) = True) Then
MsgBox("El nombre ya existe en el vector", MsgBoxStyle.Exclamation, "Error")
Else
MsgBox("El nombre no existe en el vector", MsgBoxStyle.Exclamation, "Error")
End If
End Sub

Les agradezco la ayuda que me puedan dar!