VBA编译错误：ByRef参数类型不匹配问题求助

问题场景 #

运行以下VBA代码时出现「ByRef argument type mismatch」编译错误，移除报错行后通过MsgBox诊断可知：codes变量末尾带回车换行符，类型为8（String类型），处理后值为>>>911:202<<<。但将codes替换为字符串"911: 202"时，函数可正常运行。

运行的VBA代码 #

codes = regexSearch("Response Codes: (.+)[\W$", email.Body)
MsgBox ("Codes is >>>" & codes & "<<<")
MsgBox ("Codes type is " & VarType(codes))
codes = Left(codes, Len(codes) - 1)
MsgBox ("Codes is >>>" & codes & "<<<")
msgCount = regexSearch(".+:\W+(\d+)", codes)

regexSearch函数定义 #

Function regexSearch(pattern As String, argument As String)

邮件正文内容 #

Moneta IBS via VPMG Response Codes: 911: 202 Severity: 1

错误原因分析 #

问题核心在于变量声明和参数传递规则：

• 代码中的codes未显式声明为String类型，VBA默认将其视为Variant类型。
• VBA函数参数默认采用ByRef（按引用）传递，这种方式要求传递的变量类型必须与参数类型完全一致。Variant类型变量即使存储字符串值，其内存结构和String类型变量不同，无法直接按引用传递给String类型参数，因此触发类型不匹配错误。
• 当使用硬编码字符串"911: 202"时，VBA会自动创建临时String变量传递给函数，所以不会报错；其他30-40处能正常运行，大概率是那些场景传递的是显式声明的String变量或字符串字面量。

解决方法：在代码开头显式声明codes为String类型即可：

Dim codes As String

内容的提问来源于stack exchange，提问作者Steve Ives