Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Calling Functions and Sub Procedures

Sub Master()            SalesData = GetInput("Enter Sales Data")            If SalesData = False Then Exit Sub            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