Dim empid As Integer Dim hworked As Integer Dim hrate As Double Dim ovthrs As Double Dim grosspay As Double Dim ovtpay As Double Dim

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

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

If (hworked > 40) Then
ovthrs = (hworked - 40)
ovtpay = (ovthrs * hrate * 1.5)
regpay = 40 * hrate

Else
ovthrs = 0
ovtpay = 0
regpay = hrate * hworked

End If

grosspay = regpay + ovtpay

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

End Sub
End Class

Hosted by www.Geocities.ws