Das ist kein Programm, wo sind die Sub Routinen und wo werden sie aufgerufen/beendet?
Ein Elseif oder auch ein Then alleine in einer Zeile ergibt keinen Sinn...und bitte Programmzeilen/Beispiele in Code Tags
(
Code:
)
Programm
(
)
Einsperren.

Gruß Richard