cannot return my own user type to variant function

[c@lle]

i have following error:
Only public user defined types defined in public object modules can be used as parameters or return types for public procedures of class modules or as fields of public user defined types


This error has the following cause and solution:

You attempted to use a public user defined type as a parameter or return type for a public procedure of a class module, or as a field of a public user defined type. Only public user defined types that are defined in a public object module can be used in this manner.



this is my code:

Option Explicit
Private Type xmlKLANT
    KLANT_ID As Integer
    KLANT_NAAM As String
End Type

Private Sub Command1_Click()
 Dim vThingie As Variant
    ParseXML "blab", vThingie
End Sub

Public Function ParseXML(sText As String, ByRef vThing As Variant)
Dim xKlant As xmlKLANT
   vThing = xKlant
End Function

how can i return my own user-defined type to the variant?
the purpose is to create a general function that can return different usertypes by parsing the text.