Message box is not visible for results

Question

Message box is not visible for the below code.

Sub Codetext1()
    For Counter = 1 To 5
        varMessage = varMessage & InputBox("Please enter a word&q