Visual Basic - Payroll - 11/14/2019

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnPay.Click
        Dim sngHours As Single = Val(txtHoursWorked.Text)
        Dim sngWage As Single = Val(txtHourRate.Text)
        Dim sngPay As Single = sngHours * sngWage

        If sngHours > 40 Then
            sngPay = sngHours * (sngWage * 1.5)
        End If

        Me.lblEquals.Text = sngPay
        '/// Calculates pay by multipling hours by wage ///
    End Sub
    Private Sub radYes_CheckedChanged(sender As Object, e As EventArgs) Handles radYes.CheckedChanged
        Dim sngHours As Single = Val(txtHoursWorked.Text)
        Dim sngWage As Single = Val(txtHourRate.Text)
        Dim sngPay As Single
        Dim sngPayWithTaxes As Single
        Dim blnYes As Boolean
        sngPay = sngHours * sngWage

        If blnYes = True Then
            sngPayWithTaxes = (sngPay * 0.18) - sngPay
        End If
        Me.lblEquals.Text = sngPayWithTaxes
    End Sub
End Class