Allora ... prima di tutto mi sembra che le If e le End If non siano corrette ...

Secondo, se fai dei calcoli allora devi utilizzare delle variabili di tipo apposito, per esempio di tipo double

Dim quote_tot As Double, perc_clienti_inc As Double, bonus As Double, n_quote As Double, quote As Double

e i confronti vanno fatti senza le virgolette (dato che non sono stringhe)

If Val(num_quote.Text) <= "15000" Then

Infine, devi spiegare meglio quale e' il criterio da adottare, in modo da suggerirti il codice corretto.