search with input box

[ccsmith]

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