'Enter: Sub InputBox = InputBox("Your Text", "Your Text") If (InputBox = "Your Text") Then MsgBox "Hello World!" End If 'If I explained something wrong, tell me!