Sub GetRes() Dim retValue As String retValue = InputBox("Enter your name.", "Name", "First, Last") End Sub