"Then" がありません。
If...Then...Else 構造の先頭行に Then キーワードがありません。If...Then...Else 構造の正しい使用例を次に示します。
If condition Then statements [Else elsestatements ]
または、ブロック形式で記述します。
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]] . . .
[Else
[elsestatements]]
End If
このエラーを解決するには
If...Then...Else 構造に必要なすべての要素が含まれていることを確認します。
参照
If...Then...Else ステートメント | Select Case ステートメント | 条件ステートメントの使用