Private Sub TextBox130_Change()
If TextBox110 <> "" Then TextBox131 = ConvNum(Me.TextBox130.Value) / ConvNum(Me.TextBox110.Value)
TextBox134 = ConvNum(Me.TextBox130.Value) + ConvNum(Me.TextBox132.Value)
If TextBox119 <> "" Then TextBox135 = ConvNum(Me.TextBox134.Value) / (ConvNum(Me.TextBox119.Value) + ConvNum(Me.TextBox110.Value))
'--------format textbox %----------