Language Basics VisualBasic Script

Sub help()
    Dim strWhichOffice
    strWhichOffice = _
        InputBox("Enter the name of the office:", _
        "Expense Assistant 2000", "default", , , _
        "c:\Help.chm", 0)
End Sub