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"
    If .Execute Then
      If aRng.Paragraphs(1).Range.ListFormat.ListType <> 0 Then
        MsgBox "This is a list paragraph"
      Else
        MsgBox "This is not a list paragraph"
      End If
    End If
   End With
  Set aRng = Nothing
End Sub