"Function" がありません。
Function プロシージャが End Function ステートメントで終了せずに、End キーワードで終了しています。Function プロシージャは、必ず End Function ステートメントで終了します。
このエラーを解決するには
Function プロシージャを End Function ステートメントで終了します。
参照
Function ステートメント | Call ステートメント | Dim ステートメント | Exit ステートメント | Set ステートメント | Sub ステートメント