Code for using prompt boxes within a sheet?

Hi, can anyone help with the below?

I have a tab called “Template”. What I would like to do is to add a button to my UserForm that does the following;

Copies the Template tab and inserts it before the 20th sheet.
Then have a prompt box to appear and ask me to rename the sheet
Then for another prompt box to appear and ask me for a title that will be inserted into cell A1.

Private Sub CommandButton5_Click()
    Sheets("Template").Select
    Sheets("Template").Copy Before:=Sheets(20)

What code do I need to be able to get the prompt boxes to appear and make the changes that I require?

Thanks,

Sub MoveSheet()

    Dim MySheetName As String
    Sheets("Template").Select
    Sheets("Template").Copy Before:=Sheets(20)
    MySheetName = InputBox("Please enter sheet name: ")
    Sheets("Template (2)").Name = MySheetName
    Sheets(MySheetName).Select
End Sub

Sorry, forgot the last part of your question

Sub MoveSheet()

    Dim MySheetName As String
    Dim MyCell As Variant
    Sheets("Template").Select
    Sheets("Template").Copy Before:=Sheets(20)
    MySheetName = InputBox("Please enter sheet name: ")
    Sheets("Template (2)").Name = MySheetName
    Sheets(MySheetName).Select
    MyCell = InputBox("Please enter value to be placed in cell A1: ")
    Sheets(MySheetName).Range("A1").Value = MyCell
End Sub

try this

Sub MoveSheet()

    Dim MySheetName As String
    Sheets("Template").Select
    Sheets("Template").Copy Before:=Sheets(20)
    MySheetName = InputBox("Please enter sheet name: ")
    Sheets("Template (2)").Name = MySheetName
    Sheets(MySheetName).Select
    Sheets(MySheetName).Range("A1").Value = "Name " & MySheetName
End Sub

Bandicoot,
You have to assign a new name to the string/value being returned from the inputbox.
You also have to declare the dimension of that name ie:String or date etc.
Because you are adding the date to a string, it has to be a string. If you were adding the date to a seperate cell you could declare it as a date.

Sub MoveSheet()
    Dim MySheetName, MyDate As String
    Sheets("Template").Select
    Sheets("Template").Copy Before:=Sheets(20)
    MySheetName = InputBox("Please enter sheet name: ")
    Sheets("Template (2)").Name = MySheetName
    Sheets(MySheetName).Select
    Sheets(MySheetName).Range("A1").Value = MySheetName
    MyDate = InputBox("Please enter Date: ")
    Sheets(MySheetName).Range("A2").Value = "Beginning from " & MyDate
End Sub