extraire valeur tva d'un textbox

[grisan29]

bonjour a vous tous
dans cette partie de code

If TextBox17.Value = "" Then
TextBox17.Value = (TextBox8.Value * Txt_qté_vente.Value)
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
End If

qui fonctionne bien mais me renvoie le calcul du ht de chaque taux
j'ai essayer ceci pour extraire la valeur de la tva

If TextBox17.Value = "" Then
    TextBox17.Value = (TextBox8 * Txt_qté_vente.Value) * 0.07
Else
    TextBox17.Value = CDbl(TextBox17.Value + TextBox8.Value * Txt_qté_vente.Value)
    End If
Else

    If TextBox18.Value = "" Then
    TextBox18.Value = (TextBox8 * Txt_qté_vente.Value) * 0.196
Else
    TextBox18.Value = CDbl(TextBox18.Value + TextBox8.Value * Txt_qté_vente.Value)
    End If
End If

mais les somme sont aléatoire
ce que je voudrais en fait c'est que chaque calcul se fasse correctement
merci de vos suggestions

Pascal

je viensde trouvé réponse a ma question et voila comment j'ai procédé pour une partie

If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If

comme vous pouvez le voir il suffisait de rajouter 0.07 où 0.196 a la fin de la 2 eme ligne de code
désolé pour le dérangement

Pascal