Input Box: Return 2 Values To 1 Cell

I am attempting to have a user enter a First Name into the first Input Box and a Last Name into the second Input Box.

Within the code, I would like both answers to be returned to cell A1.

For example: A1 would read as Doe, James or James Doe (any variation is fine, as long as its one value in A1).

Sub Name()
y = InputBox("Enter First Name", "Information")
If y = "" Then
MsgBox "You must enter", 16, "Message"
Else
x = InputBox("Enter Last Name", "Information")
If x = "" Then
MsgBox "You must enter", 16, "Message"
Else
Range("A1") = y & & x
End If
End If
End Sub