こんにちは
catchの中で以下試してみてください。
faultedDetails = exception.Data("FaultedDetails")
としておいて(faultedDetails はobject型)
ワークフロー名
faultedDetails.GetType().GetProperty("WorkflowFile").GetValue(faultedDetails, Nothing).ToString
アクティビティ名
faultedDetails.GetType().GetProperty("ActivityFullName").GetValue(faultedDetails, Nothing).ToString
ワークフロー上の表示名
faultedDetails.GetType().GetProperty("DisplayName").GetValue(faultedDetails, Nothing).ToString