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"

[paralinx]

same way as message box

Option Explicit
    Dim sTemp As String
    
Private Sub Form_Load()
    sTemp = InputBox("Enter Something", "Enter Something", "Something")
End Sub