Dim TotalRedFija,CntMinutos,TotalCelular,Ahorro
  
  	if not isnumeric(Formulario1.Minutos.value) then 
	MsgBox "Ingrese solo Números",0+16, "Error"
	else

    	CntMinutos=int(Formulario1.Minutos.value / 120)
	TotalRedFija=int(CntMinutos * 120)
	TotalCelular=int(CntMinutos * Formulario4.ValorMinCel.value)	
	Ahorro=int(((TotalRedFija-TotalCelular)/TotalRedFija)*100) & "%"
	Label1.caption="$" & TotalCelular
	Label2.caption=Ahorro

	end if