Sub inputDemo() Dim strWhichOffice As String strWhichOffice = InputBox("Enter the name of the office that you visited:", _ "Expense Assistant", "defaultValue", , , _ "c:\Help.chm", 0) End Sub