Mirando tu codigo se me hace que If...then..else.. no es la estructura apropiada y que mejor deberias utilzar un case de la siguiente forma:

Select Case Variable

Case Is < 5

Incremneto = ...

Case Is < 6

Incremneto = ...

Case Else

Increment = 1000

End Select


Una saludo...