Enter value into message box

[kosherboy]

Hello Forum!
I was wondering if it's possible to have a macro display a message box that allows me to enter a value into the message box itself?
Allow me to be more specific, my current macro is a button that when pressed creates an excel invoice for the selected customer, the number i use is identical to Quickbook's number. Not always does the number match Quickbook's number as there are a number of users creating invoices, therefore i would like to know if it's possible that when the invoice button is pressed a message box will appear which will display the following: "Create invoice number ----- to customer" where "----" is open for me to enter any value i want, and once i click "yes" on the message box excel will take that number and paste it in cell A1 which is in Sheet2 (Sheet2 is the invoice template).

Thanks in advance.

[kosherboy]

I got it!

Sub test01()
   Dim a As Long, response As Long
   a = Application.InputBox( _
      Prompt:="Enter invocie number", _
      Title:="Create invoice:", Type:=1)
   If a <> False Then
     response = MsgBox("Are you sure.", vbYesNo)
     If response = vbYes Then Range("A1") = (a)
   End If
End Sub

[kosherboy]

However, is it possible that the input box in the message box will display the last used invoice number which will be found in cell A1?
This would be great if it can work!

[mikerickson]

Try

a = Application.InputBox( _
      Prompt:="Enter invocie number", _
      Title:="Create invoice:", Default:= Range("A1").Text, Type:=1)

[kosherboy]

Wow!
That was genius!
It worked like a charm, thanks