Excel VBAのsubまたfunctionが定義されませんのエラー

前提・実現したいこと

こんちわ。Excel　VBA　初心者です。
会員登録画面を作成しています。
下記エラーバグの削除方法がよくわかりません。
どなたかお願いします。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

引数の判定するコードで
コンパイルエラー
subまたfunctionが定義されませんのエラー

該当のソースコード

Option Explicit
Public Sub LS_BookReturn_Click()

    Dim TextCamnameS As String
    Dim Textdescrip As String
    Dim TextCskiDay As String
    Dim Textemployees As String
    Dim TextFounding As String '
    Dim Textoname As String
    Dim Textzipcode As String
    Dim ComBprefectures As String
    Dim Texminicic As String
    Dim Textaddress As String '
    Dim Textworkplice As String
    
    TextCamnameS = clientForm.TextCamnameS.Text
    Textdescrip = clientForm.Textdescrip.Text
    TextCskiDay = clientForm.TextCski.Text
    Textemployees = clientForm.Textemployees.Text
    TextFounding = clientForm.TextFounding.Text
    Textoname = clientForm.Textoname.Text
    Textzipcode = clientForm.Textzipcode.Text
    'ComBprefectures = clientForm.ComBprefectures.Text
    Texminicic = clientForm.Texminicic.Text
    Textaddress = clientForm.Textaddress.Text
    Textworkplice = clientForm.Textworkplice.Text
    
    
    If LF_user(TextCamnameS, Textdescrip, TextCskiDay, Textemployees, Textoname, Textzipcode, Texminicic, Textaddress, Textworkplice) = 0 Then
    
        '会員No、氏名が未入力でなければ、情報を登録しましたの表示'
        MsgBox "「返却情報を登録しました」"
    End If

End Sub


Public Function LF_BookReturnRegistration(ByVal Textdescrip As String, ByVal TextCamnameS As String, ByVal Textemployees As String, _
ByVal TextCskiDay As String, ByVal Textemployees As String, ByVal TextFounding As String, ByVal Textoname As String, _
ByVal Textzipcode As String, ByVal Texminicic As String, ByVal Textaddress As String, _
ByVal Textworkplice As String) As Integer
 


    If TextCamnameS = "" Or Textdescrip = "" Or Textemployees = "" Then
        MsgBox "「入力がエラーです。」", vbOKOnly + vbExclamation, "エラーメッセージ"
         
         LF_user = -1
         
        Exit Function
        
    End If
    

       
            'もし、該当物ならば罫線と中央配置を設定
            With Sheet2.Cells(D4)
                 .Borders(xlEdgeTop).LineStyle = xlContinuous
                 .Borders(xlEdgeBottom).LineStyle = xlContinuous
                 .Borders(xlEdgeLeft).LineStyle = xlContinuous
                 .Borders(xlEdgeRight).LineStyle = xlContinuous
                 .HorizontalAlignment = xlCenter
                 '(返却日）４列目にTextemployeesを入れる
                 Sheet3.Cells(BNumC, 4).Value = Textemployees
            End With

       
    LF_user = 0
    
End Function