Function gs(i)
Select Case i
Case 0 To 500
temp = 0
Case 500 To 2000
temp = i * 0.1
Case 2000 To 5000
temp = i * 0.15
Case 5000 To 20000
temp = i * 0.2
Case 20000 To 40000
temp = i * 0.25
Case 40000 To 60000
temp = i * 0.3
Case 60000 To 80000
temp = i * 0.35
Case 80000 To 100000
temp = i * 0.4
Case 100000 To 999999999
temp = i * 0.45
End Select
gs = temp
End Function