请问为什么这段代码里的right$出错？

Function AddSlash(lzPathName As String) As String
    If Right$(lzPathName, 1) = "\" Then AddSlash = lzPathName Else AddSlash = lzPathName & "\"
    
End Function
类型-声明字符与声明的数据类型不符合
工程运行时正常但生成EXE出现上述错误谢谢！