search with input box

I got a code for search number in a range. I would like to use this one to add a next button (option) to this macro to find the next results as well.
Could it be possible to highlight the entire row where the result found?

Sub searchmain()
Dim InputItem As Variant
Dim c As Range

    InputItem = ""
    InputItem = Application.InputBox("Please enter the number you wish to find", "Number", "")
    If InputItem = "" Or InputItem = False Then Exit Sub

Set c = Columns(7).Find(InputItem, LookAt:=xlWhole, MatchCase:=False)

    If c Is Nothing Then
    MsgBox "not found", 48, "error"
    Else
    c.Select
    End If

End Sub

Would this help?

Sub searchmain()
Dim InputItem As Variant
Dim c As Range
Dim firstaddress As String

    InputItem = ""
    InputItem = Application.InputBox("Please enter the number you wish to find", "Number", "")
    If InputItem = "" Or InputItem = False Then Exit Sub

Set c = Columns(7).Find(InputItem, , xlValues, xlWhole)
  If Not c Is Nothing Then
    firstaddress = c.Address
  Do
     c.EntireRow.Interior.ColorIndex = 6
     Set c = Columns(7).FindNext(c)
  Loop While Not c Is Nothing And c.Address <> firstaddress
    Else
  MsgBox "not found", 48, "error"
 End If
End Sub

Something like this.

Sub searchmain()
Dim InputItem As Variant, sq
Dim c As Range
Dim firstaddress As String

    InputItem = ""
    InputItem = Application.InputBox("Please enter the number you wish to find", "Number", "")
    If InputItem = "" Or InputItem = False Then Exit Sub

Set c = Columns(7).Find(InputItem, , xlValues, xlWhole)
  If Not c Is Nothing Then
    firstaddress = c.Address
  Do
     sq = sq & "," & c.Address
     Set c = Columns(7).FindNext(c)
     
  Loop While Not c Is Nothing And c.Address <> firstaddress
   Range(Mid(sq, 2)).EntireRow.Select
    Else
  MsgBox "not found", 48, "error"
 End If
End Sub

Sub searchmain()
Dim InputItem As Variant
Dim c As Range
Dim firstaddress As String

    InputItem = ""
    InputItem = Application.InputBox("Please enter the number you wish to find", "Number", "")
    If InputItem = "" Or InputItem = False Then Exit Sub

Set c = Columns(7).Find(InputItem, , xlValues, xlWhole)
  If Not c Is Nothing Then
    firstaddress = c.Address
  Do
    abc = MsgBox(c.Address, vbYesNo)
    If abc = vbYes Then exit sub
    
     Set c = Columns(7).FindNext(c)
  Loop While Not c Is Nothing And c.Address <> firstaddress
    Else
  MsgBox "not found", 48, "error"
 End If
End Sub

will this help?

Sub searchmain()
Dim InputItem As Variant, sq
Dim c As Range
Dim firstaddress As String

    InputItem = ""
    InputItem = Application.InputBox("Please enter the number you wish to find", "Number", "")
    If InputItem = "" Or InputItem = False Then Exit Sub

Set c = Columns(7).Find(InputItem, , xlValues, xlWhole)
  If Not c Is Nothing Then
    firstaddress = c.Address
  Do
     sq = sq & ",row " & c.Row
     Set c = Columns(7).FindNext(c)

  Loop While Not c Is Nothing And c.Address <> firstaddress
   MsgBox Join(Split(Mid(sq, 2), ","), vbLf)
    Else
  MsgBox "not found", 48, "error"
 End If
End Sub