以下のブロックステートメントのいずれかの終わりを示すキーワードが省略されています。
Class
Do
For
ForAll
Function
If...Then...Else...EndIf
Property Get
Property Set
Select Case
Sub
Type
While
適切なキーワードでステートメントを終了させてください。