使用InStrRev键入不匹配

Question

感谢您阅读我的问题，我的功能与类型不匹配。我读了InStrRev上的MS站点，它声明它是一个整数。我的函数设置为返回一个整数，所以我不确定我做错了什么？

Function gSearch(str As String, find As String, Optional dir As String) As Integer
Select Case dir
    Case "L", "l", "left", "Left"
        gSearch = InStrRev(str, find)
    Case "R", "r", "right", "Right"
        gSearch = InStrRev(Len(str), str, find)
    Case Else
        gSearch = InStrRev(str, find)
End Select

结束功能

Answer 1

您在第二种情况下收到错误：

TypeError

InStrRev 的第一个参数是 Len（str）。 Len（str）结果是一个数字; InStrRev 第一个参数必须是String。