Excel VBA global property example

Main.bas

Private pLocalPath As String

Public Property Get LocalPath() As String
    If pLocalPath = "" Then
        pLocalPath = GetLocalPath(ThisWorkbook.Path)
    End If
    LocalPath = pLocalPath
End Property
  
' Using Property somewhere else in VBA - example
Function GetModuleLocalPath(Name As String, rel As String) As String
sRootDir = LocalPath & "\" & rel & "\" & Name
GetModuleLocalPath = sRootDir
End Function

UDF_GetProp.bas

' UDF Function to be called from Excel Sheet
Function GetProp_LocalPath()
  GetProp_LocalPath = LocalPath
End Function

See detailed explanation https://tdalon.blogspot.com/2024/11/excel-vba-global-property.html