Perdida de dato en TextBox

[Giufantasy]

SI, pero ese codigo lo necesito guardar aca en el codigo del boton Guardar

DEBO CAPTURARLO DONDE ESTAN LOS *****

GRACIAS

MIra este es el codigo

'Validar que datos no queden en blanco
If (Me.TxtRutAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar el numero de Rut.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.TxtRutAsignacion.Focus()
Exit Sub
End If
If (Me.TxtDigAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar el digito verificador correspondiente a su rut.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.TxtDigAsignacion.Focus()
Exit Sub
End If
If (Me.CBEstadoPerfilEspecial.Text.Length) = 0 Then
MessageBox.Show("Debe seleccionar el estado.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.CBEstadoPerfilEspecial.Focus()
Exit Sub
End If
If (Me.TxtCodigoAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar el codigo del sistema correspondiente.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.TxtCodigoAsignacion.Focus()
Exit Sub
End If
If (Me.TxtSistemaAsignacion.Text.Length) = 0 Then
MessageBox.Show("Debe ingresar el nombre del sistema.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.TxtSistemaAsignacion.Focus()
Exit Sub
End If

'Recuperar datos del formulario he instanciarlos en un objeto Asignacion de Perfil
Dim perfilEspecial As New CAPA_DTO.Asignacion_Perfil_Especial("", "", "", "", "", "", "")
perfilEspecial._cod_form = Me.TVMenuAsignacion.SelectedNode.Text*********
perfilEspecial._sistema = Trim(CStr(Me.TxtCodigoAsignacion.Text))
perfilEspecial._rut = Trim(CStr(Me.TxtRutAsignacion.Text)) & "-" & Trim(CStr(Me.TxtDigAsignacion.Text))
perfilEspecial._estado = auxNegAsig.getRecuperarIdEstadoPorNombre(Me.CBEsta doPerfilEspecial.SelectedItem)
If Me.CheckInsertar.Checked = True Then
perfilEspecial._insertar = "ACT"
Else
perfilEspecial._insertar = "BLO"
End If

If Me.CheckModificar.Checked = True Then
perfilEspecial._modificar = "ACT"
Else
perfilEspecial._modificar = "BLO"
End If

If Me.CheckEliminar.Checked = True Then
perfilEspecial._eliminar = "ACT"
Else
perfilEspecial._eliminar = "BLO"
End If

Dim auxiliarEspecial As New CAPA_NEGOCIO.Negocio
If Me.getEsNuevo = True Then
auxiliarEspecial.insertaAsignacionPerfilEspecial(p erfilEspecial)
Dim respuesta As Integer = MessageBox.Show("Se ha Asignado un perfil Especial. " & vbLf & "¿Desea Asignar otro Perfil Especial?", "Mensaje", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If respuesta = vbYes Then
Me.CheckInsertar.Checked = False
Me.CheckModificar.Checked = False
Me.CheckEliminar.Checked = False
Me.CBEstadoPerfilEspecial.Text = ""
Me.TxtRutAsignacion.Enabled = False
Me.TxtDigAsignacion.Enabled = False
Me.TxtSistemaAsignacion.Enabled = False
Me.TxtCodigoAsignacion.Enabled = False
Else
Me.BtnVolver.Enabled = True
Me.BtnPerfil.Enabled = True
Me.BtnNuevo.Enabled = True
Me.BtnGuardar.Enabled = False
Me.BtnBuscar.Enabled = True
Me.TxtRutAsignacion.Enabled = False
Me.TxtDigAsignacion.Enabled = False
Me.TxtCodigoAsignacion.Enabled = False
Me.TxtSistemaAsignacion.Enabled = False
Me.setFila(0)
End If
Else
auxiliarEspecial.modificarAsignacionPerfilEspecial (perfilEspecial._cod_form, perfilEspecial._sistema, perfilEspecial._rut, perfilEspecial._estado, perfilEspecial._insertar, perfilEspecial._modificar, perfilEspecial._eliminar)
MessageBox.Show("Se ha modificado la Asignacion Especial del Usuario.", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.BtnGuardar.Enabled = False
Me.BtnVolver.Enabled = True
Me.BtnNuevo.Enabled = True
Me.BtnBuscar.Enabled = False
Me.TxtRutAsignacion.Enabled = False
Me.TxtDigAsignacion.Enabled = False
Me.TxtSistemaAsignacion.Enabled = False
Me.TxtCodigoAsignacion.Enabled = False

End If