"Function" がありません。

Function プロシージャが End Function ステートメントで終了せずに、End キーワードで終了しています。Function プロシージャは、必ず End Function ステートメントで終了します。

このエラーを解決するには

Function プロシージャを End Function ステートメントで終了します。

参照

Function ステートメント | Call ステートメント | Dim ステートメント | Exit ステートメント | Set ステートメント | Sub ステートメント