Comment Ecrire et lire une donnée dans un module de classe

Bonjour;

Je veut ecrire et lire une donnée en utilisant des commandes distinctes.

'----------------------------------
Dans le module de classe(Chiffre)

Private Nombre As String

Property Get Nbre() As String
Nbre = Nombre
End Property

Property Let Nbre(StrNbre As String)
Nombre = StrNbre
End Property

Sub ShowInfo()
MsgBox Nbre
End Sub
'---------------------------------
Bouton1(Saisir valeur)

Dans le Userform1
Private Sub CommandButton1_Click()
Dim MaVal As New Chiffre
MaVal.Nbre = Me.TextBox1
Unload Me
MaVal.ShowInfo
End Sub
'---------------------------------
BOuton2(revoir la valeur saisie)

je ne veux pas que cette valeur ne soit sur une feuille du classeur.

<<Je sais pas quel est le code utiliser avec MSGBOX>>

Ci-joint le classeur.

Merci de votre aide.