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, counter As Double

counter = 5
While (counter)

empid = InputBox("ENTER EMPLOYEE ID")
hworked = InputBox("ENTER HOURS WORKED")
hrate = InputBox("ENTER HOURLY RATE")
textbox1.text = empid
textbox2.text = hworked
textbox3.text = hrate

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)

counter = counter - 1

End While

End Sub

End Class