VB Code:
'missing parenthese here public Function GetPayPerEmp ingTotalPcs As Long)As Currency 'should be public Function GetPayPerEmp [color=blue][b]([/b][/color][b][/b]ingTotalPcs As Long)As CurrencyVB Code:
'these need to be on different lines 'not lblAmount.Caption = FormatCurrency(curAmount, 2) cmdCalculate. Enabled = False 'but lblAmount.Caption = FormatCurrency(curAmount, 2) cmdCalculate. Enabled = FalseVB Code:
'got one too many lines here 'not strMessageString = "Total number of pieces: " & mintTotalNumber & vbCrLf & _ "Total Pay: " & strFormattedPay & vbCrLf & _ "Average Pay: " & strFormattedPay MsgBox strMessageString, vbInformation, "Piecework summary" 'but strMessageString = "Total number of pieces: " & mintTotalNumber & vbCrLf & _ "Total Pay: " & strFormattedPay & vbCrLf & _ "Average Pay: " & strFormattedPay MsgBox strMessageString, vbInformation, "Piecework summary"




