Perdida de dato en TextBox

[Giufantasy]

Gracias me sirvio de mucho,

EL UNICO DETALLE ES QUE AL VOLVER DE LA SELECCION EN LA GRILLA QUEDAN TODAS LAS CAJAS DE TEXTO EN BLANCO Y TENGO QUE APRETAR EL BOTON VOLVER (QUE LO UNICO QUE TIENE DECLARADO ES EL ME.CLOSE())

ESTE ES EL CODIGO DE LA GRILLA

Private Sub DGVSistemas_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVSistemas.CellContentClick
Dim pantallaAsignacionPerfilesEspeciales As New FrmAsignacionPerfilEspecial

CType(Me.Owner, FrmAsignacionPerfilEspecial).TxtCodigoAsignacion.T ext = Me.DGVSistemas.Rows(e.RowIndex).Cells(0).Value()
CType(Me.Owner, FrmAsignacionPerfilEspecial).TxtSistemaAsignacion. Text = Me.DGVSistemas.Rows(e.RowIndex).Cells(1).Value()
'pantallaAsignacionPerfilesEspeciales.TxtCodigoAsi gnacion.Text = Me.DGVSistemas.Rows(e.RowIndex).Cells(0).Value()
'pantallaAsignacionPerfilesEspeciales.TxtSistemaAs ignacion.Text = Me.DGVSistemas.Rows(e.RowIndex).Cells(1).Value()
pantallaAsignacionPerfilesEspeciales.Show()

Me.Close()
End Sub

Y ASI QUEDO EL BOTON BUSCAR

If (Me.CBEstadoPerfilEspecial.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar los datos que faltan (Estado)")
Else

'Dim f As New FrmCargaGrillaEmpresa()
'Me.AddOwnedForm(f) 'Le indicarás que el formulario 3 será el padre de este.
'f.Show()

Dim f As New FrmCargaGrillaEmpresa
Me.AddOwnedForm(f)
f.Show()

If (Me.TxtRutAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar los datos que faltan (Rut usuario).", "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Me.AddOwnedForm(f)
f.Show()
End If

If (Me.TxtDigAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar los datos que faltan (Digito Verificador del rut usuario).", "Error.", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Me.AddOwnedForm(f)
f.Show()
End If
End If

INTENTE PONER EL CHOWDIALOG, PERO ME DIO ERROR...

GRACIAS POR LA AYUDA, PERO ESO ES LO UNICO QUE FALTA