text1.text = "0." & suporcentaje.text
Dim dResult#, dNumber# Dim dPercent# dNumber = 1000 'Número ingresado. dPercent = 15 '15% (quince por ciento) dResult = (dPercent*dNumber)/100 txtPercent.Text = FormatPercent$(dResult, 3)