'Module1
Private someAPIKey As String
Public Sub SetModule1APIKey(ByVal value As String)
someAPIKey = value 'or have it set internally by something within Module1
End Sub
Public Function GetModule1APIKey() As String
GetModule1APIKey = someAPIKey
End Function