税率怎么整呢？

Private Sub Command1_Click()

    Dim w As Long

    Dim y As Long

    Dim f As Long

      w = Val(Text1.Text)

    y = w - 800

    Select Case y

    Case Is < 500

    f = y * 5 \ 100

     Case Is < 2000

    f = y * 10 \ 100

     Case Is < 5000

    f = y * 15 \ 100

     Case Is < 20000

    f = y * 20 \ 100

     Case Is < 40000

    f = y * 25 \ 100

    Case Is < 60000

    f = y * 30 \ 100

    Case Is < 80000

    f = y * 35 \ 100

     Case Is < 500

    f = y * 40 \ 100000

     Case Is > 100000

    f = y * 45 \ 100

    End Select

    Text2.Text = y

    Text3.Text = f

    

End Sub