Highlight VS.NET code position from exception while debugging

Intention

In our commercial apps, there's a specially designed Windows Forms dialog in use to display runtime error messages (like 'file not found' and the like) to the user. However, when debugging, this dialog shows up like it would in the release version, but is enhanced with a list of the exceptions that occurred. Each exception can be clicked on, and on doing so, the corresponding source code position will immediately be found and highlighted in the IDE on behalf of the file name and line number information contained in the exception's message text and stack trace details. This proved extremely useful. The essentials are shown below.

Object containing the exception information:

Public Class cdoErrStackframe
    Public Filename As String
    Public LineNumber As Integer
    Public ColumnNumber As Integer
    Public FunctionName As String

Public Sub New(ByVal frX As StackFrame)
    With frX
        Filename = .GetFileName
        LineNumber = .GetFileLineNumber
        ColumnNumber = .GetFileColumnNumber
        FunctionName = .GetMethod.Name
    End With
End Sub

Public Sub New(ByVal sFilename As String, ByVal sFunctionName_
                        As String, ByVal iLinenumber As Integer)
    Filename = sFilename
    LineNumber = iLinenumber
    ColumnNumber = 1
    FunctionName = sFunctionName
End Sub

    Public Overrides Function ToString() As String
        Dim fName As String
        fName = Mid(Filename, Filename.LastIndexOf("\") + 2)
        fName = Left(fName, fName.LastIndexOf("."))
        Return fName & "::" & FunctionName & "() -- " & LineNumber
    End Function
End Class

This snippet shows a way to extract the necessary information from the exception to a string output. It is sure to be version-dependant, but works fine ;-)

Friend Function VisualizeError(ByVal errX As cdoError,_
    ByVal Cascade As cdoErrors) As cdoSrv.cdoErrorResults
    Dim frmX As New frmMsg
    Dim errC As cdoError
    'displays a single error; if the cascade is defined
    'it will be displayed except its last entry
    With frmX
        .Text = errX.Title
        .lblMsg.Text = errX.Msg
        .lblExplanation.Text = errX.Details
        .lblRemedy.Text = errX.Remedy
        If Not (Cascade Is Nothing) Then
            For I As Integer = 0 To Cascade.ErrorList.Count - 2
                errC = Cascade.ErrorList.Item(I)
                .lstCascade.Items.Add(errC)
            Next
        End If
        'visualize the stack trace if necessary
        If errX.fromException And Debugger.IsAttached Then
         Try
          Dim sf As New System.Diagnostics.StackTrace(True)
          For J As Integer = 0 To sf.FrameCount - 1
           If Not (sf.GetFrame(J).GetFileName Is Nothing) Then
            If sf.GetFrame(J).GetFileName.IndexOf("cdoErrors.vb") <= 0 Then
             .lstStack.Items.Add(New cdoErrStackframe(sf.GetFrame(J)))
            End If
           End If
          Next
          'secondly attach the entry points extracted from
          'the exception stack trace string
          'as they stand in errx.details (which, in fact,
          'contains the result of exception.tostring)
          Dim sX As String = errX.Details
          Dim sY(0) As String
          Dim sFilename As String, sFunction As String, iLine As Integer
          For I As Integer = 0 To Len(sX) - 1
           If sX.Substring(i).StartsWith("   at") Then
            ReDim Preserve sY(UBound(sY) + 1)
            sY(UBound(sY)) = sX.Substring(I + Len("   at"))
            If sY(UBound(sY)).IndexOf(vbLf) > 0 Then
              sY(UBound(sY)) = Trim(Left(sY(UBound(sY)),_
              sY(UBound(sY)).IndexOf(vbLf) - 1))
            Else sY(UBound(sY)) = Trim(sY(UBound(sY)))
           End If
          Next
          For I As Integer = UBound(sY) To 1 Step -1
           If sY(i).IndexOf("vb:line") > 0 Then
            sFunction = sY(I).Substring(0, sY(i).IndexOf("("))
            If sFunction.IndexOf(".") > 0 Then
              sFunction = sFunction.Substring(sFunction.LastIndexOf(".") + 1)
            sFilename = sY(i).Substring(sY(i).IndexOf(" in ") + Len(" in "))
            If sFilename.IndexOf(":line") > 0 Then
              sFilename = sFilename.Substring(0, sFilename.LastIndexOf(":"))
            iLine = CInt(sY(i).Substring(sY(i).LastIndexOf(":line ")_
                    + Len(":line ")))
            .lstStack.Items.Add(New _
                   cdoErrStackframe(sFilename, sFunction, iLine))
           End If
          Next
         Catch ex As Exception
           'ignore this
         End Try
           .lstStack.Visible = CBool(.lstStack.Items.Count > 0)
        End If
        'display and wait for the user to react
        .DoLayout(errX)
        .ShowDialog()
        'if there was a validation, then try to focus the control
        Try
            errX.ValidatedControl.Focus()
        Catch ex As Exception
            'ignore this
        End Try
        'clear the collection now
        Clear()
        Return .Result
    End With
End Function

Navigation essentials (shows how to get the IDE to open a file and highlight a certain line in source code):

 Private Sub lstStack_DoubleClick(ByVal sender_
As Object, ByVal e As System.EventArgs) Handles lstStack.DoubleClick
     'dive into the code
     If lstStack.SelectedItem Is Nothing Then Return
     Try
      If Not Debugger.IsAttached Then Return
      With CType(lstStack.SelectedItem, cdoErrStackframe)
       Dim DTE As EnvDTE.DTE
       DTE = _
        System.Runtime.InteropServices.Marshal.GetActiveObject("VisualStudio.DTE")
       Dim itmX As EnvDTE.ProjectItem = _
                          DTE.Solution.FindProjectItem(.Filename)
       itmX.Open(EnvDTE.Constants.vsViewKindCode).Activate()
       Dim objSel As EnvDTE.TextSelection_
                          = DTE.ActiveDocument.Selection
       objSel.StartOfDocument()
       objSel.MoveToLineAndOffset(.LineNumber,_
                                   .ColumnNumber)
       objSel.SelectLine()
      End With
     Catch ex As Exception
         'can't do anything about that, dead end
         Beep()
     End Try
 End Sub