Try
    ....
 
catch ex as Exception
   Debug.WriteLine(GetFullException(ex))
End Try
 
<DebuggerStepThrough()> _
    Friend Function GetFullException(ByVal ex As Exception) As String
        Dim strRet$
        Dim iEx As Exception
        strRet = ex.Message
        iEx = ex.InnerException
        If Not iEx Is Nothing Then
            strRet = strRet & vbCrLf & GetFullException(iEx)
        End If
        Return strRet
    End Function