Private submmand1_click ()
DIM X as single, y as single
x = val (text1.text)
Y = ((x 52.8) * 5 - 3.9343) / 0.5-x * 10
Text2.text = "I want to say to you:" Str (Y)
End Sub
