Find a word and then check if its paragraph is a list pargraph or not

[RobiNew]

I'm tryng to check if a paragraph containg the 'Found' word is a list paragraph or not. Can someone help with the tentative code here below? Thanks!

Sub ListOrNot()
Dim aRng As Range
Set aRng = ActiveDocument.Range
    With aRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWildcards = False
      .Text = "Title"
      .Execute
    End With
check = aRng.Find.Found.ListFormat.ListType
MsgBox check
End Sub