Private Sub Text1_Change()
    On Error Resume Next
    Dim rst As Integer
    rst = Text1.Text / 2 * 0.0074 / 0.8
    Text2.Text = rst
End Sub