[VBA] Tester un caractère spécial case cochée

Bonjour,
je programme un peu sous Word VBA,

je cherche le moyen de tester le caractère une fois celui si selectionné,

pour que dans mon formulaire je puisse positionner le bouton radio à True ou False.

A l'inverse j'ai le code pour mettre ce caractère spécial dans la page Word :

Sub insererSymbole(signetnom, coche)
'
' insererSymbole Macro insertion d'une case cochée ou non après un signet
' Macro enregistrée le 29/02/2008 par 1084417
'
ActiveDocument.Bookmarks(signetnom).Select
If coche = 1 Then

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InsertSymbol CharacterNumber:=-3976, Unicode:=True, Bias:=0
Selection.TypeText Text:=" "
Else

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InsertSymbol CharacterNumber:=-3928, Unicode:=True, Bias:=0
Selection.TypeText Text:=" "
End If

End Sub


ce 'caractère' valorisé -3976 ou -3928 met un carctère graphique case vide ou case cochée...

mais maintenant je veux faire l'inverse:

je me positionne au signet, je sélectionne ce 'caractère'...bon çà je sais faire...

maintenant:

comment tester (par un CHR$ ? je n'ai pas trouvé la valeur ?) ce caractère pour que je puisse, dans le formulaire positionner le bouton afférent à True (coché) ou a False (décoché) ?

merci de votre aide...