You could do this yourself with a macro.
Here's an example:
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Public Module Module1
Sub FindValueInExpression(Optional ByVal expAndValStr As String = "")
Dim expression As EnvDTE.Expression
Dim params As String() = expAndValStr.Split(New Char() {","c})
expression = DTE.Debugger.GetExpression(params(0), True)
If expression.IsValidValue Then
FindValueInExpression(expression, Trim(params(1)))
End If
End Sub
Sub FindValueInExpression(ByRef exp As Expression, ByRef valStr As String)
Dim i As Integer = 1
While i <= exp.DataMembers.Count
If exp.DataMembers.Item(i).Value = valStr Then
Dim commandWindow As EnvDTE.CommandWindow
commandWindow = DTE.Windows.Item(EnvDTE.Constants.vsWindowKindCommandWindow).Object
commandWindow.OutputString("Found it at " & exp.Name & " " & exp.DataMembers.Item(i).Name & vbLf)
Else
FindValueInExpression(exp.DataMembers.Item(i), valStr)
End If
i = i + 1
End While
End Sub
End Module