Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim empid, hworked As Integer
Dim hrate, ovthrs, grosspay, ovtpay, regpay, trate, netpay, taxpay  As Double


While (1)

empid = InputBox("ENTER EMPLOYEE ID")
hworked = InputBox("ENTER HOURS WORKED")
hrate = InputBox("ENTER HOURLY RATE")
trate = 0.1

If (hworked > 40) Then
ovthrs = (hworked - 40)
ovtpay = (ovthrs * hrate * 1.5)
regpay = 40 * hrate + ovtpay
taxpay = regpay * trate
netpay = regpay - taxpay

Else

ovthrs = 0
ovtpay = 0
regpay = hrate * hworked
taxpay = regpay * trate
grosspay = regpay * hrate
netpay = regpay - taxpay

End If

MsgBox("Employee ID is = " & empid)
MsgBox("Hours Worked is = " & hworked)
MsgBox("Hourly Rate is = " & hrate)
MsgBox("Gross Pay is = " & netpay)

End While

End Sub
End Class