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.