Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

The Call Statement

Sub Master()          SalesData = GetInput("Enter Sales Data")          If SalesData = False Then Exit Sub          Call PostInput(SalesData, "B3")      End Sub      Function GetInput(Message)            Data = InputBox(Message)            If Data = "" Then GetInput = False Else GetInput = Data      End Function      Sub PostInput(InputData, Target)            range(Target).value = InputData      End Sub