Dim intWeight, intLength, intWidth, intHeight As Integer
        intWeight = Val(txtWeight.Text)
        intLength = Val(txtLength.Text)
        intWidth = Val(txtWidth.Text)
        intHeight = Val(txtHeight.Text)
        If (intLength * intWidth * intHeight) <= 100000 And intWeight <= 27 Then
            Me.lblAnswer.Text = "Accepted"
        ElseIf (intLength * intWidth * intHeight) > 100000 And intWeight <= 27 Then
            Me.lblAnswer.Text = "Rejected: Too big, but not too heavy"
        ElseIf (intLength * intWidth * intHeight) <= 100000 And intWeight > 27 Then
            Me.lblAnswer.Text = "Rejected: Too heavy, but not too big"
        ElseIf intWeight > 27 Then
            Me.lblAnswer.Text = "Rejected: Too Heavy"
        ElseIf (intLength * intWidth * intHeight) > 100000 Then
            Me.lblAnswer.Text = "Rejected: Too big"
        End If