"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 ステートメント | 条件ステートメントの使用