E' chiaro che cosi non potrai mai complilare.
La giusta sintassi potrebbe è la seguente:
[CODE]
If then
'Codice
ElseIf
'Codice
Else
'Codice
End If
[CODE]

Se dopo in Then metti il codice lui chiude l' If...Then