Replace retourne valeur VRAI

Bonjour à tous !

Bout de code avec lequel je voudrais supprimer "!" et donc le remplacer par ""

Seulement la fonction replace me retourne la valeur "vrai"

Comprends pas très bien pourquoi,

une idée?

Merci d'avance !

For I = 0 To Me.lb_moe_mail.ListCount - 1
If Me.lb_moe_mail.Selected(I) = True Then
Result = Replace(Me.lb_moe_mail.Selected(I), "!", "")
concat1 = Result & ";" + concat1
End If
Next

Je viens de me rendre compte que j'ai remis le selected(I)

Result = Replace(Me.lb_moe_mail.List(I), "!", "") à remplacer !