Is it possible to use one InputBox for two functions?

Question

Hi is it possible to use one InputBox to have two functions? Otherwise I have to fill in information twice. I want it to filter (that already works) and also want to show it in a cell.

FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = InputBox("Code") 



If FilterCriteria = "" Then Exit Sub
FilterCriteria = Replace(FilterCriteria, "*", "")
FilterCriteria = "*" & FilterCriteria & "*"

Answer 1

Try This:

FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = FilterCriteria