Only place parentheses around the arguments when calling a function and making use of the return value from the function p
Sub main() SalesData = GetInput("Enter Sales Data") End Sub Function GetInput(Message) Data = InputBox(Message) If Data = "" Then GetInput = False Else GetInput = Data End Function