To retrieve input from an input box, declare the numeric variable or String variable that will contain it
Sub help() Dim strWhichOffice strWhichOffice = _ InputBox("Enter the name of the office:", _ "Expense Assistant 2000", "default", , , _ "c:\Help.chm", 0) End Sub