急求：这个if公式怎么设

当A＜2.5万，B=-1。当2.5万＜A＜3万，B=0。当3万＜A＜4万，B=1。当A＞3万，且A-3万每多1万B都多加1，楼上的条件写错了

A1=2.5万，B1=?
A1=3万，B1=?
A1=4万，B1=?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim f1 As Double
Dim result As Integer
f1 = CDbl(Sheets(1).Cells(1, 1).Value)
If f1 < 25000 Then
result = -1
ElseIf f1 < 30000 Then
result = 0
Else: result = CInt((f1 - 20000) / 10000)
End If
Sheets(1).Cells(1, 2).Value = result
End Sub