Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
Try
Dim val1 As Decimal = Decimal.Parse(Me.TextBox1.Text.Trim)
Dim val2 As Decimal = Decimal.Parse(Me.TextBox2.Text.Trim)
Me.TextBox3.Text = val1 + val2 * 30
Catch ex As Exception
Me.TextBox3.Text = ""
End Try
End Sub