Private Function CalcUnallowed(ByVal ParkingFee As Double, ByVal TaxiFee As Double, ByVal LodgingCharges As Double, ByVal NumOfDays As Integer)
        Dim totalExpensesNotAllowed As Double = 0
        If (ParkingFee > (MAX_PARKINGFEE * NumOfDays)) Then
            totalExpensesNotAllowed += ParkingFee - (MAX_PARKINGFEE * NumOfDays)
        End If
        If (TaxiFee > MAX_TAXICHARGE) Then
            totalExpensesNotAllowed += TaxiFee - MAX_TAXICHARGE
        End If
        If (LodgingCharges > MAX_LODGINGCHARGE) Then
            totalExpensesNotAllowed += LodgingCharges - MAX_LODGINGCHARGE
        End If
        MsgBox(totalExpensesNotAllowed)
        Return totalExpensesNotAllowed
    End Function