Error en el evento Leave

[sagma]

hola a todos, tengo el siguiente codigo, que funciona, pero cuando digitas un codigo que no existe, en vez de reflejar el mensaje

Código:

MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)

me tira del programa, por supuesto con un mensaje:

Código PHP:

  la convesion de la cadena "no hay ninguna fila en la posicion" al tipo 'integer' no es valida 
   

y me bota hasta afuera.

Código:

Private Sub txt_codigo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_codigo.Leave
        Try
            If IsNumeric(Me.txt_codigo.Text) Then
                Dim Trx As New AccesoDatos.Transacciones(False)
                Dim Pn As New ReglasN_CarrMate.RN_CarrMate(Me.txt_codigo.Text, Trx.Comand)

                Me.txt_codcarre.Text = Pn.CCarrera
                Me.txt_codmate.Text = Pn.CMateria
                Me.cmb_plan.SelectedValue = Pn.CPlan
                Me.txt_nsa.Text = Pn.NivelNsa
                Me.cmb_estado.SelectedValue = Pn.Estado

                Dim CCa As New ReglasN_Carrera.RN_Carrera(Me.txt_codcarre.Text, Trx.Comand)
                Dim CMa As New ReglasN_Materia.RN_materia(Me.txt_codmate.Text, Trx.Comand)
                Me.txt_ccar.Text = CCa.CodCarre
                Me.txt_desc_carre.Text = CCa.Descripcion
                Me.txt_sigla.Text = CMa.Siglas
                Me.txt_desc_mate.Text = CMa.Descripcion

                Me.btn_adicionar.Enabled = False
                Me.btn_eliminar.Enabled = True
                Me.btn_modificar.Enabled = True

            End If
        Catch ex As Exception
            MsgBox("Error en la carga", ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

gracias