Exercise 1: Program Framework and Declarations 
Procedure
Sub GetCustomer()
'
'Declare the objects and variables
'
Dim functionCtrl As Object 'Function Control (Collective object)
Dim sapConnection As Object 'Connection object
Dim theFunc As Object 'Function object
'
'Create a function object
'
Set functionCtrl = CreateObject("SAP.Functions")
Connect to R/3
Call Function Module
Display R/3 Data
Terminate Programm
End Sub
How to Continue
Exercise 2: Connect to R/3