Vider tous les textbox

Bonjour

J'ai sur bouton un code pour vider toutes les textbox qui est ceci/
Private Sub CommandButton13_Click()
Dim objControl As Control
For Each objControl In UsF_Ajout.Controls
If TypeOf objControl Is MSForms.TextBox Then
objControl.Text = ""
End If
Next
End Sub

mon problème et que j'ai par ailleurs ce code
Private Sub TextBox6_Change()
Dim n
n = Val(Me.TextBox6.Value)
Me.TextBox6.Value = IIf(InStr(Me.TextBox6.Value, " (Mns)") > 0, Me.TextBox6.Value, Me.TextBox6.Value & " (Mns)")
Me.TextBox6.SelStart = Len(n)
End Sub

Se qui fait que j'ai le textbox6 qui a toujours (Mns)")

Je vous remercie d'avance