между Then
Elsif

должен быть оператор, хотя бы ";"

P.S. Для комплексных условий: If (A=0)&&(B=0)&&(C=1)&&(D=0) Then