All pastes #247508 Raw Edit

brett

public text v1 · immutable
#247508 ·published 2006-11-13 16:13 UTC
rendered paste body
If Val(txtnum1.Text) > 4 Then
lblans.Caption = Val(txtnum1.Text) * 1.14
ElseIf Val(txtnum1.Text) <= 4 Then
lblans.Caption = Val(txtnum1.Text) * 1.08
End If

If Val(txtnum1.Text) >= 4 Then
txtnum2.Text = Val(txtnum1.Text) * 0.14
ElseIf Val(txtnum1.Text) <= 4 Then
txtnum2.Text = Val(txtnum1.Text) * 0.08