Need help with my search macro for excel

[jotr]

I recently received help writing a search macro for excel, but now I am trying to change it up to use it in another spreadsheet, and I am having some troubles. I need it to search two cells one has a month (cell B4) and the other has a year(cell B5). The macro that I have works great for searching just the month, but I don't know how to change it to incorporate another cell with the year in it. I really appreciate the help this forum provides.
Below is the macro I am currently using.

Sub TextBox11_Click()
     Dim searchNum As String
 
    searchNum = InputBox("Enter Month Year")
    If searchNum = "" Then Exit Sub
    Sheets("Archive").Select
    Range("B99").Value = searchNum
    Range("B100").Activate
    For i = 1 To 120
            ActiveCell.Value = "=vlookup(B99,B4:DQ53," & i & ",FALSE)"
        ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
    Next i
 
    Range("A1").Select
    Sheets("Searched Report").Select
    Range("A1").Select
 
End Sub

[jotr]

Sorry I made a mistake the month is in column B starting in row 4 and the year is in column C starting in row 4! I also would like for there to be two separate text boxes for the month and year, which I know how to do that but I don't know how to combine the two columns into the search results. The same row will always have the month and year I am searching for if that helps at all. I have changed my code to incorporate the two text boxes to enter my search in, so I am going to relist it.

Sub TextBoxSearch_Click()
     Dim searchNum As String
     Dim intRng As Integer
 
    searchNum = InputBox("Enter Month")
    If searchNum = "" Then Exit Sub
    intRng = InputBox("Enter Year")
    Sheets("Archive").Select
    ActiveSheet.Unprotect
    Range("B99").Value = searchNum
    Range("C99").Value = intRng
    Range("B100").Activate
    For i = 1 To 120
            ActiveCell.Value = "=vlookup(B99,B4:DQ53," & i & ",FALSE)"
        ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
    Next i
 
    Range("A1").Select
    ActiveSheet.Protect
    Sheets("Searched Report").Select
    Range("A1").Select
 
End Sub

Thanks again

[NeoPa]

This question was asked incorrectly, so the OP reposted as Excel VBA: Search Problems.