Option Explicit
 
Public Type PLUGIN_INFO_STRUCT
       PLUG_Version As Long
       PLUG_Type As String
End Type
 
Public Function GetPluginInfo() As PLUGIN_INFO_STRUCT
End Function

Option Explicit
Implements IPlugin
 
Private Function IPlugin_GetPluginInfo() As _
  PALPlugDefinitions.PLUGIN_INFO_STRUCT
   Dim ret As PLUGIN_INFO_STRUCT
   ret.PLUG_Type = "Chat"
   ret.PLUG_Version = 1
  IPlugin_GetPluginInfo = ret
End Function

Private Sub Form_Load()
   Dim plInfo As PLUGIN_INFO_STRUCT
   Dim plug As IPlugin
 
   Set plug = CreateObject("PALPlugin.PALPlug")
   plInfo = plug.GetPluginInfo
   Debug.Print plInfo.PLUG_Type, plInfo.PLUG_Version
 
End Sub