программирование алгоритмов циклической структуры

[Elonu]

Здраствуйте уважаемые программисты!очень нужна ваша помощь....задача:Дано действительное число а>0 последовательность х0 х1...,образована по закону
х0=система мин(2а,0,95) при а <=1
a/5 при 1<a<25
а/25 в остальных случаях.
мой макрос..с ошибками..(((
Dim A, X As Double
For A = 0.7 To L Step 1
If A <= 1 Then X = WorksheetFunction.Min(2 * A, 0.95)
If A > 1 And A < 25 Then X = A / 5
If a >= 0 And a > 25 Then a / 25
Debug.Print X

Next A