Language Basics VisualBasic Script

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