在VBA中实现我自己的接口-错误:对象模块需要为接口“y”实现“x”

如何实现我的课程 ClsInterface ,其代码为:

Public Function add(x As Integer, y As Integer) As Integer
End Function

Class2 ,其代码为:

Implements ClsInterface

Public Function add(x As Integer, y As Integer) As Integer
add = x + y
End Function

我的测试代码是

Public Sub test()
Dim obj As New Class2
MsgBox obj.add(5, 2)
End Sub

这总是会出现以下错误:

Microsoft Visual Basic
编译错误:

好的/救命

有什么想法吗?