Add 2 more criteria's

[Steved]

Hello from Steved

ToReplace = Application.InputBox("What value to replace?")
ReplaceWith = Application.InputBox("Replace '" & _
ToReplace & "' with what other value?")

I have a message box that comes up and asks
"What value to replace?" I input "1106"
What code would I have to include in the above
to input "1106" as I do now then 2 more criteria's
on the same row "267" and "6.00"

ToReplace & "' with what other value?")I input 2816
Is this possible to be incorporated please.
Thankyou.