Application 2-1

1)	10
2)	8
3)	3
4)	5
5)	-2

Application 2-3

1) Dim curInterestEarned As Currency
curInterestEarned = Val(txtPrincipal.Text) * Val(txtInterest.Text) * Val(txtYears.Text)

2) Dim sngAmps As Single
sngAmps = Val(txtVoltage.Text) / Val(txtOhms.Text)

3) Dim sngHours As Single
sngHours = Val(txtMinutes.Text) / 60