dim x as double dim result as double x=inputbox("please input x")result = Math.Round(Math.sin(x),6)debug.print result
