Kā izlabot makrosu?

izveidoju maziņu makrosu:
Sub macro2()
Dim msg, title, response, rez
If rez > 20 Then atb = "you need to learn more accurately"
ElseIf rez < 5 Then atb = "very good"
Else: atb = "not bad"
End If
msg = atb & Chr(13) & "correct answers: " & 30 - rez & " and it's " & (30 - rez) * 100 / 30 & " % percents of all :)"
title = "brain test"
response = MsgBox(msg, vbOKOnly + vbInformation, title)
End Sub

taču šajā vietā -> ElseIf rez < 5 Then , izmet erroru: Else without if. Vajadzētu it kā visam būt pareizi, taču nekā. Kur ir kļūda?

Komentāri:

#1 ReBoot @ 2008.10.05 23:57

tiešām zini ka var lietot elseif?
Varbūt ir jāraksta else if

#2 egac @ 2008.10.06 00:06

par to es esmu pilnīgi pārliecināts

#3 gtr @ 2008.10.06 10:08

Aiz Then jāsākas jaunai rindai.
If rez > 20 Then
atb = "you need to learn more accurately"
ElseIf rez < 5 Then atb = "very good"
Else: atb = "not bad"
End If
Ja vēl nestrādā, ieliec jaunā rindā arī to, kas ir aiz ElseIf.

#4 egac @ 2008.10.06 21:48

Liels paldies, nu viss aizgāja.