Obtenir le nom d'un objet d'un module de classe

[Tinnou]

Bonjour à tous!

J'ai un nouveau problème!


Je voudrais savoir s'il est possible, dans un module de classe, de faire référence au nom avec lequel a été défini l'objet du module.


Par exemple, imaginons que j'ai un module de classe "MonModuleDeClasse":

Option Explicit

Function TrouverLeNom () as String

TrouverLeNom = '?????????????


End Function

Et j'appelerai la fonction ainsi:

Sub Main()
Dim Toto As New MonModuleDeClasse
Dim Titi as New MonModuleDeClasse

MsgBox Toto.TrouverLeNom  'Affiche "Toto"
MsgBox Titi.TrouverLeNom 'Affiche "Titi"


End Sub

Je ne sais pas s'il existe une manière de se référer, dans un module de classe, au nom de l'objet généré...

Auriez-vous une idée?

Merci d'avance pour votre aide!