I need this script to output, after entering XXXXXX , without asking for hours worked, i am unsure where i went wrong! Option Explicit Const strTitle = "Employee Pay Calculator" Const sngPAY_RATE = 25 Const sngTAX_RATE = 0.3 Dim strEmployeeID Dim sngHours Dim sngGrossPay Dim intTotalEmps Dim sngTotalGross Dim intTotalHours Dim sngPayrollTax intTotalEmps = 0 sngTotalGross = 0 intTotalHours = 0 strEmployeeID = (InputBox("Enter Employee ID", strTitle, "")) WHILE (strEmployeeID <> "XXXXXX") sngHours = (InputBox("Enter Hours worked", strTitle, "")) sngGrossPay = sngHours * sngPAY_RATE intTotalEmps = intTotalEmps + 1 intTotalHours = intTotalHours + sngHours sngTotalGross = sngTotalGross + sngGrosspay WEND sngPayrollTax = sngTotalGross * sngTAX_RATE MsgBox "Total Employees: " & intTotalEmps & vbCrlf &_ "Total Hours: " & sngTotalHours & vbCrlf & _ "Total Gross: " & FormatCurrency(sngTotalGross, 2) & vbCrlf & _ "Payroll Tax: " & FormatCurrency(sngPayrollTax, 2), vbInformation, strTitle