Script VBA para Conectar a SAP

Estoy haciendo un Userform con varios Optionbuttons para generar diferentes informes de SAP automáticamente. De acuerdo con la selección del usuario, se genera un informe específico.

Pero noto que estoy repitiendo el código de conexión de SAP varias veces (para cada OptionButton). Estoy repitiendo el siguiente código en cada sub que tengo.

Dim Appl, SapGuiAuto, Connection, session As Object
Call Shell("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", vbMinimizedFocus)
Esperar 4 'Esperar unos segundos hasta que se abra el SAP
    If Not IsObject(Appl) Then
       Set SapGuiAuto = GetObject("SAPGUI")
       Esperar 3
       Set Appl = SapGuiAuto.GetScriptingEngine
    End If
    If Not IsObject(Connection) Then
       Set Connection = Appl.Openconnection("Producción ERP LatAm [EP0]", True)
    End If
    If Not IsObject(session) Then
       Set session = Connection.Children(0)
       Else
       Exit Sub
    End If