Inputbox question

[Pouncer]

Private Sub Command1_Click()
    Dim p As String
    p = InputBox("Enter Your Message")
    
    If p <> "" Then
        MsgBox p
    Else
        MsgBox "You didnt enter anything"
    End If
End Sub

but how can i make the inputs message box title be "Enter a name"

like in msgbox we do..

MsgBox "Hello", vbOkOnly, "WindowTitleHere"