Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click
'declare variables and constants
Const conLanctax As Double = 0.01
Const conFica As Double = 0.062
Const conMedi As Double = 0.0125
Const conpatax As Double = 0.0307
Dim decnetpay As Decimal
Dim decOver As Decimal
Dim decweek1 As Decimal
Dim decweek2 As Decimal
...