I don't download people's programs and anyway I can't access rar files.

Looking at your code one problem immediately jumps out -

vb Code:
  1. If LoyAdvisor >= 1 & LoyAdvisor <= 3 Then LAx = 0.16

  2. If LoyAdvisor >= 4 & LoyAdvisor <= 7 Then LAx = 0.33

You can't say that - & is used to join strings, not for use in a a conditional statement. You want to use one of the following in future: AND or ANDALSO or OR