Extract 7 digits number from the string please

In Colomn A , we paste the chat messages, in which we need to find the job number (not less than 5 digits / not more than 8 digits) have marked in red for reference. If it so Row B needs to mark as Feedback please help me on this..

kindly look at the attached excel for more clarity.

Thanks

Can any of your job numbers ever start with 0 (zero)?

No, Never start with o (zero).

Does the following macro work correctly for you? I ask because it identified more "job numbers" than you marked in your sample; so either you stopped marking all of the job numbers or I do not understand something about how you want to filter them.

Sub MarkCellsWith5to8digits()
  Dim R As Long, X As Long, CellText As String, Arr As Variant
  Arr = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value
  For R = 1 To UBound(Arr)
    CellText = Arr(R, 1)
    For X = 1 To Len(CellText)
      If Mid(CellText, X) Like "#####*" Then If Val(Mid(CellText, X)) < 100000000 Then Cells(R, "B").Value = "FeedBack"
    Next
  Next
End Sub