Private Sub Command1_Click()
Dim x As Single
Dim e As Long
 
e = Texte
x = Round(e * 0.85 / 100, 2)
Textx = Format(x, "0.00")
 
End Sub

Private Sub Command1_Click()
Dim x As Single
Dim e As Long
Dim y As String
 
e = Texte
x = Round(e * 0.85 / 100, 2)
y = Format(x, "0.00")
Textx = y
 
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...