answer to the first, answer to the second to follow

Sub nameentry()
Dim name
Dim curcount
curcount = 1
Do While name <> "end"
name = InputBox("Current Name Number " & curcount, "Enter name")
curcount = curcount + 1
Loop
MsgBox "program terminated"
End Sub