Change input text into upcase using macro

Hi,

This might be a silly question from me. If possible plz help me.

I want to display any input text in capital letter in first row along with another word. I used the below code but I am getting error

HTML Code: 

If I enter company name as Oracle, then output should be --> ORACLE corporation

Advance thanks for your help

Sub x()
'Not "upper".... It's UCase
Cells(1, 1) = UCase(InputBox("Enter company name")) & " corporation"
End Sub

Thanks everybody!!