Résultat de soustraction de 2 textbox dans un label

Bonjour, j'au un UserForm avec des textbox et des labels.
j'ai 2 textbox "Solde" et "Montant_a_regler"
et un Label "Nouveau_solde" dans lequel je voudrais avoir le résultat de l'opération suivante s'affiche:

"Solde" - "Montant_a_regler"

j'ai essayé plusieurs codes glanés ici et là mais pour tous, j'ai toujours le même message d'erreur d'exécution 13 qui s'affiche.

Pouvez-vous m'aider s'il vous plait?
Merci d'avance.

'premier code essayé:

Private Sub calcul_nveau_solde_Click()

Me.Nouveau_solde = CDbl(Me.Solde) + CDbl(Me.Montant_a_regler)

end sub


'second code essayé

Private Sub calcul_nveau_solde_Click()
Dim dtotal As Double
dtotal = 0
If Solde.Text <> "" Then
dtotal = dtotal + CDbl(Solde.Text)
End If
If Montant_a_regler.Text <> "" Then
dtotal = dtotal + CDbl(Montant_a_regler.Text)
End If

Nouveau_solde.Caption = Format(dtotal, "0.00€")

end if


'troisième code essayé

Private Sub calcul_nveau_solde_Click()

Nouveau_solde.Visible = True
Nouveau_solde.Caption = CStr(CDbl(Solde.Text) - CDbl(Montant_a_regler.Text))

end if