Le pourcentage % sur visual basic 6.0

Bonjour,

Merci de me corriger ce code là

par exemple lorsque je saisie 100 sur text1.text le résultat sur text2.text doit étre ( 100 * Coeuff 2% ) = 2

pourtant il m'affiche 200

voilà le code

Private Sub Command1_Click()

Dim nRate As Double
Dim nResultatIntermediaireOuToutAutreNomPlusAdapte As Double
nRate = Val(Mid$(Combo1.Text, 16, 6))
nResultatIntermediaireOuToutAutreNomPlusAdapte = Val(Text2.Text) * nRate
Text3.Text = FormatNumber(nResultatIntermediaireOuToutAutreNomPlusAdapte, 3)

End Sub

Private Sub Form_Load()

Me.Combo1.AddItem "1946 ==> Coeff 2% "
Me.Combo1.AddItem "1947 ==> Coeff 3 % "
End Sub