What Value Is Assigned to DecTaxes by the Following Program

What value is assigned to decTaxes by the following program segment, assuming that the user enters 50000 into the textbox txtSalary.Text?
Dim decSalary, decTaxes As Decimal
DecSalary = CDec (txtSalary.Text)
If (decSalary > 50000) Then
DecTaxes = .40 * decSalary
ElseIf (decSalary > 40000) Then
DecTaxes = .30 * decSalary
ElseIf (decSalary > 30000) Then
DecTaxes = .20 * decSalary
Else
DecTaxes = .10 * decSalary
End If

A) 20000
B) 15000
C) 10000
D) 5000