VBScript関数でエラーが発生しています。助けてください？

Question

Public Function BinarySearch(userNameString, switchPosition) As Boolean 
    If Right(LCase(userNameString), 8) = "lastname" Then 
     If Left(LCase(userNameString), 5) = "admin" Or Left(LCase(userNameString, 7) = "firstname" Then 
      If StrComp(switchIsOn(switchPosition), "1", vbTextCompare) = 0 Then 
       ' Verify the user is admin lastname or firstname lastname and switch is on 
       Return True 
      Else 
       ' Verify the user is admin lastname or firstname lastname and switch is off 
       Return False 
      End If 
     Else 
      ' Users last name is lastname 
      Return False 
     End If 
    Else 
     ' Not lastname 
     Return False 
    End If  
End Function 

私はそれを実行すると、私は最初の行公開機能にエラーが出る...

私は何を得ること 「マイクロソフトのVBScriptコンパイルエラー：予想される声明」であるあなたは、VBScriptで入力することができません

Answer 1

そう：

公開機能BinarySearch（userNameString、switchPosition） VBScriptのすべてのboolean

Answer 2

としては、Varianですt、変数を入力する必要はありません。 関数の名前に戻り値を代入する： BinarySearch = false 関数の名前をbinarysearchにしてから、テキストコンパイルを行いますか？