在vba中调用sub时出错

我卡住了，无法继续执行此操作。请在下面找到我的代码。代码基本上是通过VBA验证网页中是否存在元素。我已经创建了下面的子

Sub ele_exist(val As String, ele As String)

Select Case val:

Case "byid":
    Set verielement = doc.getElementById(ele)
    If verielement Is Nothing Then
    msgbox("something")
    Else
   msgbox("something")
    End If

Case "byclass":
    Set verielement = doc.getElementsByClassName(ele)
    If verielement Is Nothing Then
    msgbox("something")
    Else
   msgbox("something")
    End If

Case "byname":
    Set verielement = doc.getElementsByName(ele)
    If verielement Is Nothing Then
   msgbox("something")
    Else
   msgbox("something")
    End If

End Select

End Sub

现在，当我调用这个sub时，它给出了

语法错误

这就是我所说的上面的潜艇

Sub start()
Set ie = New InternetExplorer
    With ie
        .navigate "http://www.google.com"
        .Visible = True
        While .Busy Or .readyState <> READYSTATE_COMPLETE
           DoEvents
        Wend
        Set doc = .document
        DoEvents
    End With
    ***ele_exist ("byname","btnK")*** - THIS IS WHERE SYNTAX ERROR IS DISPLAYED AND THE CODE IS DISPLAYED IN RED

End Sub

Sub start（）
Set ie=新的InternetExplorer
与ie
.导航“http://www.google.com"
.Visible=True
当.Busy或.readyState readyState\u完成时
多芬特
温德
设置文档=.doc
多芬特
以
***ele_exist（“byname”、“btnK”）***-这是显示语法错误的地方，代码显示为红色
端接头

我甚至试着把它转换成布尔函数而不是子函数，但没有成功

---

请帮助

正如我在评论中提到的，更改

ele_exist ("byname","btnK")

到

或

另一种可能的方法是使用命名参数：

ele_exist val:="byname", ele:="btnK"

---

有关更多解释，请查看我的另一篇帖子：

将

ele\u exist（“byname”，“btnK”）

更改为

ele\u exist“byname”，“btnK”

或

调用ele\u exist（“byname”，“btnK”）

。还可以查看以下帖子：@simoco:Wow！！请将此作为答案发布，以便我接受，这可以帮助有类似疑问的人

Call ele_exist ("byname","btnK")

ele_exist val:="byname", ele:="btnK"