Как найти идентификатор ошибки в блоке Try Catch?

 MsgBox(ex.Message)

    Private Sub btnDelRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelRecord.Click
        'проверяем выделена ли хотя бы одна ячейка записи
        With DataGridView1
            Try
                If .CurrentRow.Cells(1).Selected Or .CurrentRow.Cells(2).Selected Or .CurrentRow.Cells(3).Selected Then
                    .CurrentRow.Selected = True  'отмечаем всю запись
                End If
            Catch ex As Exception
                MsgBox(ex.Message) 'ссылка на объект не указывает на экземпляр объекта    DirectCast(ex,System.NullReferenceException)._message
                'так объясняю эту ошибку я:
                MsgBox("Не выбрана ни одна ячейка таблицы.", MsgBoxStyle.Critical)
                Exit Sub
                'а вдруг ошибка другая? хотелось бы получить об этом соотв сообщение.
            End Try
            'дальше последует процедура удаления записи...................
        End With
    End Sub

        If DataGridView1.CurrentRow = Nothing Then
            'ошибка
        End If

  DataGridView1.SelectedCells.Count
  DataGridView1.SelectedRows.Count
  DataGridView1.SelectedColumns.Count

    For Each tRow As DataGridViewRow In DataGridView1.SelectedRows
     'tRow.Index
    Next

    For Each tCell As DataGridViewCell In DataGridView1.SelectedCells
     'tCell.RowIndex
     'tCell.ColumnIndex
    Next

    Try
            Dim a As Double = "CyberForum.Ru"
        Catch ex As Exception
            MsgBox(Err.Number & ": " & ex.Message)
        End Try
 
        Try
            Dim a = 0
            Dim b = 5 \ a
        Catch ex As Exception
            MsgBox(Err.Number & ": " & ex.Message)
        End Try

        If DataGridView1.CurrentRow = Nothing Then
            'ошибка
        End If

   If IsNothing(DataGridView1.CurrentRow) Then
 
   End If

If DataGridView1.CurrentRow Is Nothing Then
 'ошибка
 End If