Sub InputBoxDemo() Dim myValue myValue = InputBox("Please enter number of hours worked", "Hours Worked") MsgBox myValue End Sub