Option Explicit
Public objMessenger
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
Set objMessenger = oMessenger
MsgBox objMessenger.MyFriendlyName
Initialize = True
End Function
Just an example...
..